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Elffoxtiess Lypii"^ Is i jei^i 

The Electric Pencil by Michael Shrayer 

is a true word-processing program for 
the TRS-80. Enter your manuscript, 
and let your computer do the work. 
Editing? Just position the cursor with the 
arrow keys . . . one-key commands let you 
change, delete, or insert. Fully 
adjustable margins, left/ right justifica- 
tion, variable spacing, page headings, 
and much more! Save and recall your text 
with tape or diskf iles. Typing everything 
from tetters to reports ts fast and L^ygi [i igK tape - $100 00 
incredibly easy using The Disk version - $150.00 

electric Pencil. (comeson lapel 





Repeat Entry • Data Protection 
^^y^' Vk'j^ • F8«t»f ""(• Easiar to Use 

\\^j^^Pyy^<a!i9 in PoWCf ■ We wHI allow SI 0.00 on ths old tape wrsion and 115.00 on the 



dlBl! version II you send the original with oraer. 



Recommended for 
Small Businesses 



mall 
Business 
Bookkeeplji^ 



Based on the well- 
known Dome Book- 
keeping System. Posts 



fby 
Roger W. 



Robitaide, Sr. 



expenses to as many as 42 

accounts {which you nnay 

customize). Produces video 

and line printer reports foV 

year to last week, this week, year to date; 

supports cash system of accounting; 

stores data on disk for fast retrieval. 



With Dome Bookkeeping Journal $36.95 

Tape version of Dome BooKeepIng $24.95 
with Journal $31.95 



Available for 32K 
Disk Systems -$29.95 
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COVER STORY 

The cover shows three members 
of the computer generatior>, 
children of our staff, Kelly 
Bishop, Roger Robitaille. Jr. and 
Robbie Blank, all use computers 
at home. The first word Robbie 
ever learned to spell was RUN! 
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by George Blank 



All you do is insert the diskette in the drive and type the name or number 
you use for that diskette. The program automatically reads the directory 
of the disltette, ignoring invisible files like BASIC/CMD and normal 
DOS files like DISKDUMP/BAS, and stores it in a disk file. 

Display options include: 

Printout to screen or line printer 

Alphabetic sort 

Search for single program using INSTR 

(A search for IRE would find STARTREK and 

TREES) 
Index to single disk 
Search and RUN program 

Three programs on BASIC tape with instructions for 
loading on a NEWDOS diskette and instruction manual. 
$14.95 



IMPORTANT: This program requires the 
following minimum System: 

NEWDOS by Apparat (Uses 
CMD"DIR" and OPEN*'E") 

32K of Memory 

At least TWO Disk Drives 
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We feel an obligation to share 
with our customers some of the 
lessons we have learned the hard 
way. Why should you have to go 
through the expense of testing 
several products to find good 
ones and bad ones, when others 
have already done so? 

One area in which we have had 
a great deal of experience is in 
the use of mini diskettes. After 
using thousands of them, here 
are our ratings: Excelfent: Dysan; 
Very Good: BASF, Georgia Mag- 
netics; Good: Verbatim, Scotch 
{3M), Radio Shack; Poor; 
Memorex. Out of that experience, 
we have chosen the lines that we 
carry. 

Another area that concerns us 
is the input/output difficulties of 
the Radio Shack TRS-80, Almost 
all of the problems we have found 
are linked to communication bet- 
ween devices or to the outside 
world. 

The first and most obvious is 
the lack of lower case letters. 
There are three solutions that i 
know about. You can buy another 
computer like the Heathkit, you 
can modify it yourself, or you can 
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believe the rumor and wait for 
Radio Shack to offer it. 

The next thing that most peo- 
ple discover is the difficulty in- 
volved in loading tapes. Radio 
Shack does offer modifications 
that help a little, but not enough. 
We routinely use either The Data 
Dubber or the AlphaNetlcs Acu- 
Data tape digitizers. Even these 
do not absolutely sofve the pro- 
blem, but they make It livable. 

One problem that should be 
fargely solved by now is the 
CTR-80 dropout problem, where 
the tape recorder erases little 
pieces of your tape, destroying It 
In the process. If you suspect 
that you have this problem, take 
your recorder to your local Shack 
for modification. 

Another problem that was sup- 
posedly solved was inadequate 
refresh signals to the expansion 
interface, causing loss of data in 
high memory. Radio Shack has 
tried a halt dozen solutions to 
this one. I have the buffered 
cable and the "umbilical cord". 
The newer models are supposed 
to have solved the problem. If you 
often lose data in high memory, 



take the expansion interface to 
the Shack. 

The ribbon cables, especially 
to the disk drives, but also to the 
expansion interface and the line 
printer, are another source of 
grief. They make excellent anten- 
nas for high frequency radiation. 
That means that the computer 
picks up information from 
fiuorescent iights, power sup- 
plies and radio stations, and 
sends interference to your televi- 
sion set. Since moving an anten- 
na affects its radiation pattern, 
you can try shifting the parts of 
your system around on the desk 
and in different parts of the 
house, but the only solution i 
know tor TV interference is to 
turn off either the computer or 
the television. 

There are several more woes 
for Disk users. The Radio Shack 
Disk Operating System (Version 
2.3 has been out since August) is 
still woefully inadequate. We use 
NEWDOS from Apparat in-house, 
but also plan to look closely at 
VTOS 3.1 from Randy Cook when 
it comes out. NEWDOS and VTOS 
are both good systems. 

Another disk headache Is the 
incompatibility between the real 
time clock and the Radio Shack 
disk drives. The clock interrupts 
are almost perfectly synchron- 
ized with the speed of the disk 
drives, causing your system to 
spin and spin and finally give up 
looking for data. The solutions 
are to use the VERIFY command 
from DOS, which cuts your ac- 
cess speed in half, to change the 
speed of your drive with software 
(see the September PROG-80), or 
to buy a better quality drive like 
the Percom. 

My final input/output com- 
plaint seriously affects the 
TRS-80 in business use. In order 



to save a few bucks, Radio Shack 
neglected to install a data 
separator in the floppy disk con- 
troller, blatantly ignoring_a-atafn-- 
ing on the data sheet that applies 
to the controller chip they use. 
Most problems with unreliable 
transfer of information to and 
from disk come from this short- 
cut. Percom does offer a data 
separator, but if you install it, you 
void the warranty. Personally, I 
prefer the separator. 

When we offer a business 
system through HARDSIDE, we 
encourage people to get the Per- 
com drives, data separator, and 
NEWDOS, and we don't do it to 
raise the price; in fact, we would 
be willing to sell an all-Radio 
Shack System for less than Radio 
Shack list price, yet the recom- 
mended system is even less ex- 
pensive than that. We do it 
because we believe that anyone 
spending two to three thousand 
dollars for a computer ought to 
get one that works. 

Those of you who are not will- 
ing to put up with these problems 
may be interested in the follow- 
ing announcement. But be 
careful; IBM BASIC is MUCH less 
powerful than Radio Shack Level 
II BASIC. 

Bargain Sale! 

Those of you who have been 

looking for an opportunity to 
upgrade from a TRS-80 to a 
slightly more powerful computer 
will be happy to know that IBM 
has just announced a 20% price 
cut on the minimum configura- 
tion of one of its smallest main- 
frames. You can now buy a new 
IBM 3031 with 2 megabytes of 
main memory for only $800,000, 
or $26,681 a month on a four year 
tease. Price does not include 
Blackjack and Backgamnion. 




OIL BARON 

by Paul Knechtel 

INTRODUCTION 

We are all suffering from the 
high cost of energy these days. 
Every kind of energy is costing us 
more and more daily and we are 
caught in the middle, unable to 
do anything about it. 

Here's your chance to strike 
back! As Chairman of the Board 
of your own oil company, you will 
control your own energy destiny 
in an attempt to become the first 
Oil Baron. 

Timely investments and sales 
will increase your company's 
working capital and allow you to 
invest in more research and 
development, and purchase more 
real estate. Rapid development 
Gould mean a shortage of sup- 
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plies and bring financial instabili- 
ty, while slow development might 
result in your removal as Chair- 
man of the Board. 

The game can be played by two 
to four players. An average game 
involving two players requires 
about one and one-half hours to 
complete. The game requires 
strategy, risk-taking, good 
business sense, and a certain 
amount of luck. 

There are 10 phases to the game 
as follows: 

PHASE 1: Oil Purchases and 
Disbursements. 

Three options are possible 
1) Buy domestic oil: 2) Buy 
foreign oil: 3) Release oil to 



refineries. First you should ex- 
amine and compafe your oil 
reserves against your oil require- 
ment. If you (ind that you need 
oil, dotfie following. 

A) enter '1' and buy as 
much of the lower priced 
domestic oil as you need. 
The domestic oil 
availability may or may 
not be enough to cover 
your requirements. In the 
event that you need more 
oil than your domestic 
sources can offer, you 
must buy the higfier pric- 
ed foreign oil. Avoid buy- 
ing more oil than your sta- 
tions need or than your 
refineries can refine 
unless you get an ex- 
cellent price per barrel, 

B) Once you have pur- 
chased all the oil you 
need, enter '3' and release 
what your stations re- 
quire. 

PHASE II: Station Prollts and 
Wholesale Gas Reserves Sales 

Station profits from the sale of 
gas at the pump are reported and 
you are allowed to sell your 
reserve oil at wholesale prices to 
generate quick cash if needed. 

PHASE III: Pollution Control and 
Research 

As with any large refinery, pollu- 
tion is a constant problem. Here 
you are allowed to purchase 
smog control devices which 
eliminate or reduce damage to 
the environment. The price of 
smog units is randomly 
calcuiated in each turn se- 
quence. You may however, elect 
not to buy pollution units if the 
political atmosphere is favorable. 
Lobby effort provides more 
latitude depending on its 



strength (that is, the more you 
spend on domestic lobbies, the 
greater the political influence 
with the E.P.A. and the less likely 
you are to be checked) Be 
careful, because if your smog 
unit need is too great, heavy fines 
by the E.P.A. (Environmental Pro- 
tection Agency) and mandatory 
purchase of smog equipment 
maybe imposed. 

PHASE IV: Bar Graphs 

This phase graphically repre- 
sents profits and present values 
on a bar graph of the following 
factors: 

1) Stock Values: may 
fluctuate according to 
the present mood of 
the stock market. 

2) Cash Reserves: 
reports cash on hand, 

3) Research Invest- 
ments: reports the 
total amount spent on 
research to date. 

4) Station Profits: shown 
separately but includ- 
ed in your cash 
reserves. 

5) Real Estate Values: 
the value of all service 
Stations, oil wells and 
refineries. 

PHASE V: Stock Splits 

When a stock splits, you will be 
notified of the split only if you 
own that stock. In this case, the 
price of the stock is cut in half 
and the number of shares you 
own is doubled. 

PHASE VI: Investments 

This phase allows you to pur- 
chase any number of stations, 
refineries, oil wells, lobbyists, or 
stocks. Keep a careful eye on the 
stock market status (the upper 
right-hand corner of the screen). 



PHASE VII: Smog Equipment 
Failure 

Smog equipment will fail at 
times. You may lose a portion or 
ail of your pollution control 
devices. Replacements must be 
purchased at the next possible 
turn to avoid E.P.A. investigation, 
and heavy fines, Hovi/ever, depen- 
ding on the number of units lost 
and the political climate at the 
time, you may be investigated by 
the E.P.A. before you have a 
chance to buy replacement smog 
units. If this occurs, quite heavy 
fines result along with mandatory 
purchase of smog units. 

PHASE VIII: Refinery & Stnog 
Graphics 

This phase presents a graphic 
display of the number of refinery 
units you own and the number of 
smog units you currently need to 
purchase. The solid bar which is 
interrupted by black boxes 
across the lower part of the 
screen indicates your capacity 
for refinery expansion. The solid 
vertical lines above it represent 
the number of refinery units you 
currently own. In line with each of 
the refinery units will be a vertical 
column of four arrows pointing 
upward. (Some computers may 
substitute the bracitet for ex- 
ponential notation for this 
character. If this occurs simply 
change the ASCII character code 
in line 9565 to whatever character 
code looks best to you.) Each 
refinery unit which is lacking a 
smog control unit will have a line 
of arrows directly above it. Thus 
at a glance, a person can tell how 
many refinery units he owns and 
how many of ttiose units current- 
ly require pollution control units. 
If a player desires, a comparison 
of all player standings can be ob- 
tained by entering the number '6'. 



PHASE IX: Environmental Protec- 
tion Agency Check 
After Phase VIM, the E.P.A. 

automatically checks domestic 
lobby effort. If the lobby effort 
surpasses a randomly generated 
number, no smog check will be 
made, in the event that a check Is 
made, several things can happen 
based on the political at- 
mosphere. You may be found to 
have adequate protection, in 
which case the program goes on 
to Phase X, or you may be found 
to be a major polluter, and heavy 
fines and mandatory purchases 
of smog equipment occur. 

PHASE X: Assets Liquidation 

This is the last phase in the 
player's turn. If at this point for 
any reason your cash reserves 
are below zero, you are 
automatically charged 50% in- 
terest. In addition, if your debts 
are greater than a randomly 
generated value, you will go 
bankrupt and liquidation of your 
assets ensues. 

End of Game Determination 
Each turn sequence represents a 
6 month period. As Chairman of 
the Board of your company, you 
are assigned (randomly) a term of 
office. The length of the term 
varies from player to player. If 
you do not succeed in achieving 
the title of "Oil Baron" by the end 
of your term, you are removed 
from the game. If all players are 
removed from the game in this 
manner, no one wins and the 
game obviously ends. The follow- 
ing criteria are necessary to 
become an Oil Baron: 

1) Cash reserves of at least 

$10,000,000 

2) At least 31 refinery units 
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** OIL BflRCW ** 

*+ &i' PffiJL KNECHTEL ** 
10 FOftfi=iT04.fiG<fl>=Rf»(5>H5:CR(fl)=. 6:R<ft>=i 

lee as:Fi?i«T@592>"<:«« oil b a r o n >: 



NEXT 
»»".FORJ<=1TO750.NE 



KTAf'kumns.- -pROiRFitDttt' ev " ijersueize^ F'Rint?852, "copt'right 

ftPRlL 1, i579".F«< X=lTOii2@0:NEXTK 

i5S Sft=Se:SP=16.ST=?.5L=25.GCiSUE££0e.SJ=SJ-Ba 5.SK-SF;^8. 5;G=6-8 
4.6.»H=Wt-?5, S 

2^ fl=e, as. INPUT "H0« IfflNV Flfl'ttRS a-4>",/;.IFXa0RX:>4G0TD2ee:C 
LS 

202 FORW-lTCiX 
283 ft=fl+i 

204 PRINT "PLA'fER #'% H. ", (*«T IS VOLK COHPfW W^". . IM^T«$(fl> 

205 (M*<M)="IG".NEXT 
'sm 'GfiHE 

39? B=ft:VG=ft 

400 GOSLei20«i 

401 F0Rfl=lTOe 

405- IFfl=lTHEHD£=[>E+l 

405 IF0G$«;Fl>="00G"G0T053e 

41@ aOSUB605 : Q0SU8952 a^SUPiSee : GOSUBSSee : GOSUE3080 : G0SUE56ee ; GO 

SLIB3400 G0£Le3S75 . GlSLIB96©5 : GOSllB5?30 

5^ NEXT 

535 xmuy 

596 IFC:C:<:>46OTi>t00 

59? CC=@:X=RN[K:0 : IFK=2GOTCHe0 

598 Ff3?X=iTn4:i)iOBa)=e:FLOE(K>=0 rOTX.GljT04S8 

S05 'OIL 

gi5 TE=0:TR-6 

&20 FORX=1TOCES(H> . 18=18+ <RND( 550) +6.43) , NEXT 

630 FORX=lTKa-<fl>:TF(=Tfl+<RMD<501>+1199):NEXT 

640 ET = ( ( ( Tfi+TB> *lB0::v'50 ) /CR ( fi :* : BT = I NT ( BT ) 

650 FEL=FLi^(Fl)/1600W.IFFBL>i5Tt€NFa=15:FBL=FBL/100 

686 [>El--DLOB<H>/5006.IFDBL>i5THENM;L=15.Da-DBL-lfci6 

780 'PRICES 

710 IF FE1>0GOTO730 

729 FP=RND'<S>+ii:G0T074& 

730 FP=<RfJD<S)+li>*ca@0-FBL>/ifi0) 
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The Best 

Has Gotten Better! 

Sargon, the program that came in 
first in the Creative Computing 
Microcomputer Chess Tourna- 
nnent, has beconne Sargon II -$29.95 

•A vastly improved game 

• Faster response time 

• New level for beginners 
•Easier to pre-set board 

•Hint mode - What does the computer suggest 

Sargon II is the program that tool<; 
on the maxi-computers in the West 
Coast tournament, and finished in 
the money! More thinking power 
than you ever expected in a TRS-80. 

IMow in stock for immediate delivery! 




Ilw SoAuare Evdiangie 

Call (603) 673-5144 for immediate shipment. 

Still in stock - The original Sargon $19.95 
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ATTENTION 
ALL WAR GAMERS 

The war games you have come to love have 

come to the TRS-80! 

Hexagonal Grid • 

Tenain Obstacles* 

Armor, tntanUy, and Eriftineers* 

Computer determined combat results • 



This Two Player game is an elementarv war game 
(Kriegspiel ii German for "war game") giving a battle bet- 
weeri two countries located in opposite corners of the 
screen The object is to capture the enemy capital During 
play, each piece flashes in Uirn. displaving the number of 
move? left. Vou can move it, wail until vou have moved 
other pieces, skip it, or even go directly to combat afLer 
moving only some of youf pieces You mu5t stop and do 
battle vvhenever you are adiacent to an enemy piece. In 
battle, you can be eliminated, the other player can be 
eliminated, an exchange can take place, or a retreat may 
be required You do the brainwork. General, the computer 
carries out your order? Strategy and fate determine the 
battle* 

$7.95 Level 11 Cassette 




740 IF DBL>eGOT076e 

750 DP=RND(2)+4:G0TO763 

760 DP=<RHCKSH4;*<<ie0-&BLj/10e> 

rC'S Dfl=@LlF 0<ft>=9GOTO?65 

764 FOR>:=lTOO(ft>:Dfl=E>ft+RN[>(ieee0>+50eS.t-iE;<T:t^Dft 

765 [?fl=Dfl+((R)«'(2i>+24>/i80>*eT.Dfl=INT<Dfl) 

766 Ffl= ( CRHD ( 21 J+i3 > /leS >*BT : Ffi= INT <Ffi> 
775 ftt=''$*Ht#«##». V:m=''$*.- », #" :C*="»#. #«" 

7S0 as : PRINTS. N*<FI>." OIL PLRCfffiSES * DISEit^SEflE«r":>^=64;G0SyB 

5310;PRINTi?lSl>"Oa UH ef»g^S>":PRIKT(*i58. "PRK:E/Bl=SISL" 

738 PRINT"RE8UIRED",. "fiES^W^S" .PRlUT^Sia "FOREIGN'* .PRIKT9221, "00 

fESTIC CASH RESERVES" 

S10 PRINTBLBR<fi):FRINTe2S2. ""; ;PRINTUSINGC*.FP.PRINTII295. "", :PR 

INTUSINGC*.DP:PRINT(?S04. " ". :PRIHTUSIH6 fi*jRC(ft) 

Sil K=320.GOSUE59i8 

S12 PRir-tT@4e7. "OIL fli'/fllLflEaiTr'VPRINTHSS,. "D«1ESTIC":FRINT§432, 

"FOi^ISJ" 

814 PRINT§521. Dft. '■ eflRRElS":PRINTffl55-5,.FB. " BflRRELS" 

816 K=5?€;G0S!JE'551S 

S20 PRINT"! BUY DOMESTIC OIL",. "2. BUV FCiRElGfl QIL". ^'3. REUflSE 

OIL TO REFIMERIES" 

839 GOSUE7490: IFOP<iOROF';-2aOTO830 

s:<5 oNoPGOTt0»0, see. 940 

348 IWPUT "HCW nfW BflRRELS OF MMESTIC OIL". H'. IF Bt><eORKi>[«TH 

ENQOSUB1100 ELSES9y 

850 G0T0S4e 

-m I^fUT "HGIJ MWJV ^WRELS of FOfiEISN OIL^-.BF.IF BF<yOReF;>FflTHE 

NGOSLeiige ELSESSe 

370 G0T0869 

890 FFl=Fft-BF.Dfi=E>fi-BD:BR(H>=eR(fi,>+eD+BF RC':fi>RC:(R)-((FP^eF)+([>P 

•tB[»>:eF=0:B[>=e 

909 GOTO730 

m INPUT "NOSJ MftNV BARRELS WILL 'iTJJ RELEftSE".RE(H). lFRE(H*<eGuT 

0940 

941 IF RE(Fl»BR(Fl>THEN942 ELSE944 

942 PRINT"VOU CfiNNOT R£LERSE HORE THAN VOU HfiVE IN RESERVE, , , , TR 
V FlGftlH" :Fa<l<-lTO50e.t€XT:GOTO948 

944 IF RE<fl»f?(fi)*1^0^THEN945 ELSE947 

945 PR I NT " REF 1 rCRV OUTPUT L I M 1 TS RELEASE TO " . R ( R ..'^Hmm G0Tu94 
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947 IFRE(fl)>INTCBT> THENPRmT"VCiU CflWJOT RELERSE flORE THftN VOU N 
EE[>"ELSE95e 

948 GOTO940 

9^ BR(fi>=BR<ft>-RE(fi) 

95i RETURN 

y- ^ -GFB saES 

353 IFfNlTHENI#J=HH*l, ^ 

954 IFfl=lTH£NG=G*i. ee4 

355 l*i=((INr((#^*lS^).Vlg00>:S=<<INT<G*i@0e>)/i008):FS=G*<<RE<fl> 

*50>*CR(ft»;IFRC<flK0THEMRC(F)=ftC(fl>*ll 

956 RC(fl>=RC<fl>+PS 

957 IFBR(fi>=eRETURN 

958 a.S;PRIN™$(flJ. " GfiS PROFITS fflJD SALES" 
960 )!=64:GOSIB5910 

962 PRIMT@i4S/'GfiS PRICE/GflLLOH STflTIOH CASH" 

964 PRlHT"CiaJtE OIL RESERVE WHffl.ESflLE RETAIL PROFITS 

RESERVES" 

9€6 PRINTBR(R)." BflRRELS":PRINT02?7.WH:PRIHT?£8?.Q; ;PftIHTL!SINGftJ 

,P£:f^!NTe306, "", :PRINTUSINGRt.;RC<fl) 

968 PRINT:PRlNT:PRItfr"OPTI0NS : 1 SELL OIL WHOLESftLE FOR QUIC 
K CASH" 

969 OP=0 

979 PRINT: PRINT"(;HIT ENTER TO CONTINUE) "> ;GOSUB740@;IFOP<>iRET 
URN 

976 INPUT "HOW HfiNV BfiRRaS WILL VOU SELL"j>t:IFH>BRCft>PRINT''VOU 
DON'T tffi^ THfiT MUCH. . . . . TRV AGfiIN"ELSE9Se 
97? 60T0976 

980 eR(fi?=»?<fi>-X:RC<fl>=RC<fi)+X*5e*WH:G0T095g 

1186 PRINT"Va] CANNOT BUV MORE OIL THAN IS ftWilLABLE TRV fi 

SAIN- 

liei FOR X=lTO780:t€XT: RETURN 

1202 PRINTe735,"". .F0RK=iT0i6.REA[)A:Pfi;n^CHR*(H>^ ;NEXT;RETURN 

160^ 'StIOQ NEEDS 

l&es IF R=lG0Sl^2e^ 

1610 SN^(R(fl>*de>-£l1<fi) :SH=INT(SN+, 85) 

iei5 IFSfKlTHENSN=0 

1620 SC:=<RND(:SBei>+6999) 

1636 CLS:PRINTI*4.H*(R>. " POLLUTION COWTRa l*ID RESEfKCH" 

1648 X=64.GOSl»59i0 

1656 PRmT6142/'CURi€NT'':FRINT§164."aiOG UNITS* 
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leee PRItJT(ai92.. "REFINERV UNITS" :PRINT#21X "VflLLC" PRINTg£S6. "NEE 

D INSTFULED CfiSH RESERVE" 

1670 PRINTI^60.R<fi?: PRINT C-??£,." ",. .PRINTOS!N6ft$.R(R>'Heie080e 

ibSe PRirjTe2yaSfJ.FKrNT§29&.-£H(ft):PRINTK87. " ",- .PRINTUSING ft$.R 

C(fl> 

1S85 X=;:20.QOSL85910 

use PRIHTiBS4, "PaiTICflL flTNOSFWERE = ".PC* 

U$% PRINT(?5£6. "1 PCtUrriON CONTROL RT * ".SCTER UNIT " 

1790 PRIfjTL»596. "2. RESE]FiRC:H RT HINIPtUn OF 2/; OF CASH RESERVES. " 

l?m P(fINT|ig57,. "HIT ENTER TO CONTINLE " 0P=8:S0SUBr4&@ 

1715 CW0P+10LiTOi71?> 1740. 1766 

1717 RETltRN 

l?4e PRINT;IfJPUT "ENTER # OF UNITS VOU WISH TO BUV"..UN IF UNO&O 

TO1740 

1742 UN=INT<UN>;lFUtC>SNTHEN1745 ELSE1750 

1745 PRINT"YOU CFiNT BLtV mUB mm VOU NEED . . RETRY" :QOTO1740 

1750 SM<ft>=SM(fi>+UN:SN-SN-ili,RC<fi)=RC(fl)-(SC*UHvrjOTOlO0 

1769 PRINT "mt MUCH W SW l#tNT TO SPEN[J ($",flBS<RC(ft)*. 02).. " M 
nunUM)"; INPUT RS 

1770 IF RSCfleSC. 02+^C(Ri>GOTO1780.ELSEQOTO1799 

1730 PRINT"yOU HUST SPEtC" ftT LEAST 2/: OF VaiR CftSH [^SERVES": GOT 

01760 

17^ RC(R>=RC(fl>-RS;RH<fl;=RH<fl)+RS 

1S05 IF CR(fl». 54GOTOiO0 

18ie IF RH<fi»<RNOC32700J+3:2000>THENl£^15 ELSEIOS 

1815 X=RND(2) : IFJ^OSGOTOltSO 

1826 BK=RH[)(5)/100:CR<flXRf:R?+BK 

1S38 PRINT"RESEfiRCH RND [>EVELtS>MENT HflS SCORED ft tIftJOR BREflKTHRO 

UGH !l" 

iS40 PRINT"NEW TECHNIQUE IHCRERSES CRUDE TO REFIICt ■; TO "jCR(fi) 

1356 GO£UB980tt:GOTOlt":'0 

2908 CX=Rr& CS): OfeXG-OTO28i0, 20^6, 2620 

2010 PCJ-"LIEERflL";RETURN 

2020 Pfi="CONSRVftTIVE" ; RETURT-i 

2030 PC*="MI[:'aE R0R[5". RETURN 

2268 RESTORE : REflDSJ. SIG G. NH . RETUPi) 

3900 'STOCK SPLIT 

Seie CIS . &Z=0 : IF£R>3eTHENSfl-Sfi.'2ELSE:;030 

3920 FO^L^ITOE : RB<L > =fiBa > =^2 : NE:a : [>?= "ffllERTE:-: " GO51831 30 ; 
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3930 IFSL>80THE«SL=SL/2EL5E3050 

2946 FORL=iTOE flP(L)=flP(L)*2:rEXT :D?="PCGi^" ;GOaB313e 

3&50 IF£J>b5T^€N^t=Sft'7ELSE3e7S 

3^.0 FORL=lTOe , Gta ) =GCa )*2 : NEXT : D*="MLEC.TRO " . WSWUM 

3670 IFSP>68THEK5P=£P/2ELSE3830 

3080 F0RL=1TCJB;GT«:L>=«jT(L>*2 .^£XT .r4="TitflMSF'eK" : GCfSlffi;3130— 

3096 IFST>55Th£NST=SV2ELSE3110 

3106 fmi=nm : PJ (L >=f J< L )*£ : f€XT : D*= " JGH I NC. " Gl)SUB313S 

3110 irSK>58Tt£N£K=SK/2ELSE3125 

3120 FC*iL=lTOB : FP ( L) =PP( L i *2 : NEXT : Di= "PftKNOS " GOSl«3130 

3125 IF[>Z=0RETUfiNELS£GOSUB9800 

5126 RETURN 

3130 fRINT-STOCK SPLIT !'!" 

3140 PRINT[)$. " DEaflRES 2 FOR 1 SPLIT" 

31^ &Z=DZ+1; RETURN 

5600 ' 

5605 IF fi=l(S)SLie71ffl 

5616 C:LS:PRINTiS4-H$Cfi;." INVESTMEHTS" ,PRINTei34, 'STCCK flRRKET STfi 

TUS = ".ST J 

5620 K=64:QCRie5310 

5630 PRINT@128, "SERVICE STflTIOHS" :PRIIfrQi75, "LC1E8V EFFORT" 

5640 PRIHTC'192, "CLASS fi CLfiSS 6 REFINERIES OIL WELLS FORE 

IGN DSCSTIC" 

56^ PRIHTf»2*5S.CFtSt;Fl),PRINTiEe67.CBS<fl>:PRINTe279,R<R>:PRINT(S289. 

0CR>;FRINT?295," ", :PRINTlSlNGfl*.FL':®(fi>:PRIHT$3eS. " "; :PRIHTUSI 

NGfifiULCiECfl) 

5660 PRINT!S320,. "CRSH RESER'vtS BLl^ CHIPS. flRCWTH 

SPECULFlTIVE" 
5670 PRir-(TUSINGfl*.RC<avpRlHTC''39S,fiB(R>+HP(fl>." SHHRES". :PRINT(S4 
iS.&C<ft)+GT<ft).'' aWES". :PRnJTLH33.PJ<fl>+PP(fi).." SHfil^S" 
56S0 >;=448,GOSUB53i0 

5690 PRINTl?5i2. "BlUE CHIP STOCKS GROUTH STOCKS", :PRIHTgt555.. " 

SPECLfLflTIVE STOCK" 

5780 PF;INT"1. flHERTEX ^ "> .PRINTUSINGBf.^Sfi:PRINTg597. "3. COLECTRO 
g ", :F1?INTUSINGe*,SJ:PRINT|a6i3, "5. JGf! INC:. is ". :PRINTUSIHQB*jST 
PRINT"2. PCG^ ? ", :PRIMTUSirrjBti5L:PRIKT§661, "4. TRflNSF'EK 9 "; , 
PRINTlKIN(^*;SP:PRINTg6g3,"6 PfiKNOS # "> :PRINTUSINGE*jSK 
5710 X=704,«)SUB5910 
5720 PRINTg768. "1 ClfiSS 'fl' ====== *65..000 5 STOCKS' 

5730 PRINT''2. CLftSS 'B' ====== *4e>Q08 6. REFI^ERV UNITS = tl00 

..06e/UNIT" 



17 



5748 PRIM7"3. DOMESTIC Lf^BV = $5,066 1. OIL WELLS ——== $150 
, e^^MELL" 

5759 PRINTS. FOREIGN LOSBV = $16,990 ". INPUT ^ENTER OPTION <0 
TO COWTIHUE) :";OP:PRIHT"". 
5755 IF (F<0C)ROP>7IHPltTOP 

5759 IF0P=8R£TU»J 

5760 0N0PG0T0577e, 5790. 5300. 5870. 6000. 5819, 5840 
5776 CflS(fi)=CflS(ft)+l:ReCfl>=RC<fl>-65000:SOTO5eie 
5730 CBS (fl>=CBS<fl >+l ; RC C ft)=K (ft> -49900 : GOTOKIO 
5816 RCfl)=R<fl)+. l:RC<fl)=RC (fi> -10^09 :GOTO5610 
5840 O(fl)=O(fi>+l:RC(fl>=RC<fl>-150000:GOTO5610 

5870 FLOB( ft)=FLOe<fi >+lS©e0 : RC:< ft >=RC < A ) -iSSeO : G0T05b16 

5900 OLOe<fl;i=W.Oe<fl>+5^0:RC(Fi)=RC<fl)-5008:GOTO5610 

5916 F0RL=XTCX+6i£TEP8:PRINT&L. "**^*****MCyT 

5926 RETURH 

6009 'STOCKS 

601? PRINTfa704, "1. BUV flhIERTEK 2. SELL fftERTEX 2. BUV PC:GA£ 

4, SELL PCG&E" 

6019 PRINT "5. Bl!V CaECTRO 6. SELL COLECTRO 1. BLIV TRftNSPEK 3. SEL 

L TRfWSPEK" 

6621 PR I NT "9. BLiV' JGM INC. 19. SELL JGd IfC 11, %m PflKNOS 12, SEL 

L PfiKNOS" 

6023 INPUT "ENTER OPTION '3 TO C:0HTIN0E>".0P:IF0P<e0R{r>12G0T(K8 
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6924 IF OP=@SOT05619 

6625 ONOPGOTO6059. 6940. 6959, 6060. 6970. 6^0.- 609ti. 6199. 6110. 6129. 6 

130. 6149 

6026 GOSUB7005.fiE(ft>=f«<ft>+eX.RC<fi>=RC(fl)-<BX*Sfi:':QOTO5610 

6040 >!=«!<fl>:(^UB7020:G09.«7010:BB<Ft>=ffii<fl>-S<;RC(Fl)=RC<fi)+CSX* 

Sfi):GOTO5610 

60^ GO5Lie70^:ff<Fl>=flP(fi>+B>::RCCfi)=FS;(fi>-^BX*SL):GOTO5610 

6960 X=flP<fi>:GO9JB7020:GOSUE7010.FlP(fl)=flP<fi>-S;-<:RC(fl)=RC(fl>+(SX* 

SL>:S[)T056i9 

^70 GOSUB7005:GC(fl)=GC(M>+e^^;RC<rt)=RC(R>-(eX*SJ),GOTO%10 

6980 K=6C<fl>:GO9JB7^0:GOSLie7916:GC'::fl>=GC(:fl)~SA:RCCR:J=RC(fl.J+(SX+ 

SJ):60T05616 

6996 Q0SUE7995;6T(«>=GT<fl>+BX:IS:.(fl>=^(fl>-<B:<*SP) :G0T0K16 

6100 X=6T<ft):GOSUB7020;GOSU879i0:GT(fi)=GT(fl>-SK:RC(ft>=RC<fi)+(SX* 

SP):G0T05616 

6110 GOa)B79Er5:PJ(fi)=PJ(fi)+^;RC<8>=RC<ft>-i;eX*ST):GOT05610 
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6120 K=PJ<ft>:QOSlJB?920:QO5UE7ei@,PJ(fi>=PJtft)-SX:RC(fi>=RC<fi)+(SX* 

ST>:G0TO5fcl8 

6130 GOSUE?0e5:PP<fl>=FP<Fl)+BX:RC(fl>=RC<fi>-CeX*SK:j;GOTCi56ie 

6148 X=PP(fl>:GOSUB7020 GC6Ue7@i@:PP(f1)=FP<ft)rSX:R(::<fl)=RC(fi>+<SX* 

bK>:GCiTi:'5616 

7095 INPUT "HOU mnv SmR£S Ki VOJ ItftMT TO SUV" .-.0^ RETURN 

7010 INPUT "HOW fWNV SHSKS DO VOli mn TO SELL",SX 

7012 IF S:OK THEftPRINT"VOU CFiN ONLV SELL "..&" SHRRES. , . . TRV flGfi 

IN"ELSE RETURN 

7014 GOTO7ei0 

7620 !Fa>0RETUPH 

7838 PRIfJT"VCiU IWl Omi WV OF THAT STOCK. . . TRV flGflIN",F(^6Q=i 

TOS00;r€KTQQ.tiOTO56i0 

7130 'HflRKET 

7110 ^=RN[>(5> : 0N>JGuSUB713e. 71S0. 7230 

7120 RETURI-f 

7130 'BEfiR 

7140 X=<(ia0-CRND<6>+2>.V'i06>:g^=Sa*K:SL=SL*K 

7150 K=< Ci80-<RNt)(26)+24> )/i00> ;S>S.I*X , S;P=SP*>^ 

7160 K=<(108-(^[>C46)+49>>/lM> :ST=ST*X:SK=3i*X 

7165 IFST<1. 5THEHST=1. 5 

7167 IFSK<1 2THEMSK=1 

7170 ST*="£IEHR":RETlf;N 

71^ 'STflELE 

7190 X=((100+<Rf^[)<;3)■^2))/iee>.Sft=Sft*^(:5L=SL*X 

7^10 X=ai00+<IW<19)+1))/1^) :SJ=SJ*X:SP=SP*>C 

7210 X=((10e+<iyJD<81M6>>/i00).ST=ST*i<;SK=SK*X 

7226 ST$="STf«LE":RETLlRN 

7220 'EULL 

7240 X=(<i00+<RID<llH4»,'ia0) :Sft=Sfi*X:SL=SL*X 

7250 X=<(i08+<RtJD(31>+i3>>/lM) : SJ=SJ*X ; SP=g^X 

7260 X=( <108+(RND(191)+50; )/i00) . ST=ST*X 3>SK*X 

7270 ST$="BLU":RETUra^ 

7308 [JflTRSe. 65. B5, 7&> 32. 76> l,^.- 2Z 75, 78,. 69. 6Z 72, 84,. 65. 76 

7400 INPUT"^T£ROpnON";OP:RETl^ 

S^0 CLS 

§960 V=70;F(M!=iTi3e36ST£P64:V=y-5:PRINT?>C. V:NEKT 

968© FOR 'X=i5365T0l6£eiSTEP64:P0KE X, 149: NEXT 

9010 F(KX=16198T016255:P0KE >i.iS8:NEXT 
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9028 PRINfTe902, "STOCKS CASH RESEARCH STfiTION PROFIT RER 

L ESTRTE" 

^22 Z=e:V=17:H=19;Z=(fle(fl)*Sfl>+(flP(fl)*a.)+(GC(ft>*SJ)+(GT(ft)*SP> 

+<PJ<fl>*ST)+<PPCfl>*SK) 

9623 IF Z<e50eee8GOTO9925 

^24 i=65:G0T0^26 

9025 2=ftBS«Z>/iee980> : IFe<2flf4£>2aT«KZ=l 

9026 GOSUB9300 

9027 IFRC<ft>;65ffi0e0GOTO9e33 

9028 Z=65:GOTO9048 

9832 Z=fleS(RC<fl>/100@Kl>:IF0<2(»2<iT^€NZ=i 

9035 IFRCCfl><eTf€NZ=0 

9046 V=33;N=35;GGei8930e 

9110 IFRH<fi>-Ct.500e00GOTO9125 

3120 2=65:GOTO9O0 

9125 Z=RH<fi)/10£e09, lF6<Zf»ZaTH£MZ=l 

9138 V=53:N=^:G0SL!B9;;98 

92M Z=<G=*URE(fi>*S9?*CR<fl»/l@0@@0> 

9202 IFZ<:ifWZ>0THENZ=l 

92E4 IFZ<65G0T032@8 

92E€ Z=&5 

32% V=S;<:N=85;Q0SUe93^ 

9240 2=CBS(fl>*40000+cas<fi>*65^+O<ft>*150000+R<ft>*190^08 

9244 lF2=8GQT0925ei 
9246 IF0<Zfl^K<lTHE^jZ=i 

9245 IFZ<6500000S)TO9250 
9249 Z=65,GOT09252 

9258 Z=Z/10^0 

9252 V=114:N=il6:GOSUe930e 

9290 PRINTN$(Fi:>j " R?OFIT « LOSS GRfff'H "; : 1:^:6069860 : RETUW 

9300 TR=40- ^*Z:IFTR<0THENTR=6 

9302 FCffiX=VTON : Fa?V=TRT049; SET(X. V) : ME^TV ; NEXTX 

9310 RETURN 

9400 'REFINERV/Sf«)6 GRAPHICS 

9403 CLS:IFINT(Sf1Cfl>>=0GOTO9500 

9406 X=RND<2e) : IFX<8OR)i>i4GOTO9500 

9408 X=f?HD(S«(fl>> 

9410 PRINTeie. "EQUIPMENT F R I L U R E ! ! ! ! " 

9412 PRINT ;F^IMT"FGKEMf^ REFtJRTS LOSS OF %^. " STOG I^IITS. " 
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9414 PRINT-REPLflCBCNTS HKOCO TO rtWID ENVIRCWCNTflL OISftSTER A 

ND tCflW FINES. ":PRIMT:G0SU69eee 

9416 91(fl)=SM<fl>-X 

95ee aS;F01&i=163£eT016382;P(M(E )ia91.NEXT — 

9582 FOR K=16256T01$318STEPa*:P0KE >C15^:NEm 

956:^ FOR V=16257TCil6219STEP2.F'ffl(E Va72:fCXTV 

9510 X=l:8H=R(ft) 

9512 IFeM>6. 4T}£HQW=6. 4 

9515 VR=i5871:RV=16191+<aW«ie) 

9520 F0RW=lTOQH*ie 

9555 VR=Vft+l 

9548 F0RZ=VRT0RVSTEP64;POK£ 2,1?8 

9545 NEXT2 

9550 NEXTU 

9555 a4=INT<R(fl)*10-SH(ft)) 

9558 IFINT(SN+ ee5>=0GOTO958e 

9560 Wj=15552 

9562 F0RH=1T05 

9565 F0RX=0OT0W>+Sft*.9:P0KE K,91:NEKTX 

9568 [X)=Df>+64 

9579 NEXTH 

9588 PftlNTC'i, "". :PRINTN$<ft)j " REFItCRV EMISSIOHS M) COJTRa 

VEFIR = ^K/2 
9585 P1?IHT: INPUT "HIT ENTER TO CONTINI^ OR 6 FM? PLfiVS? COMPflRIS 
ON";OP:IFOP=6GOTO990ti 
9690 RETURN 

9605 'INTEREST m> LlSUIDftTION 
9686 2X=@ 
9697 IFRC<fi»=0RETURN 

9609 RC(fi)=RC<Ft)=H.5 

9610 2Z=RC<fl>:Z2=BBSCZZ:? 

9611 IFRC<flX-3a000eGOTO9617 
9615 IFZZ<IW<3270@>+14990eRETLSN 

9617 CLS:F1?INT&14. "F ! N fi H C I ft L C R I S I S 1 1 ' " 

%13 FRINT;PRINT"IRREg^OKSia.E TOiFfiEMENT CftUSES BflHKRUPTCV !" 

9621 PRlNT-LIQUIDftTION OF fiSSETS NECESS^V TO COVER" 

962S PRINTTOSSES OF $";flB£<RC<ft?) 

%25 PRINT :IFfle(ft>=06OTO9639 

9627 PR! NT "SELLING FS€RTEJ<":FORJ(=lTCfiE<fi>STEPl8e:ZX=2XH00*a^;IF 
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9629 t€XT 

sen flB(fl>=0:IF2:^<2Z£H)TO%29 

sen f^(fl>=fle<fl)-X: IF!^(fl><0THE)«<fi)=8 

9624 G0T09697 

9629 IFf*><fl>=0GOTO9647 

9641 PRIfrr"5EaiNG PCGfi£'':rORX=lTMF'(:fl)STEPiee:a=ZX+13e*SL;IFZ:x 
>2ZGOT09645 

9642 NEXT 

9645 flP<fl>=fP<R>~X : IFfr(flKeTHEW^(fl>=e 

9646 1FZX>ZZG0T09697 
%47 lFGC<fl>=eG0T09655 

9649 PRINT"SaLING COLECTRO":FORX=lTO6C<ft)5TEP18e:ZX=2X+il0«SJ:I 
F2JOZaK)T09652 

9651 NEXT 

9652 GC(ft)=GC<fl)-X:IFGC(ftKeTHEHQCCfl>=9 
9654 IFZX>ZZQ0TO9697 

9^5 IF6Ttfi>=0GOTO9662 

9657 PRINT"SELLING TRfit^SPEK":FORX=lTOGTCfl>STEP109:ZX=ZX+100*SP:I 

F2X>22S3T09661 

9659 NEXT 

9661 GT(fi)=GTCfl>-X:IFGT(ft)<0THEHGT<fl>=8 

9662 IFZX>Z2G0T09697 

9663 IFPJ<fl)=aiOT09671 

SeS5 PRINT''SaLI^fG JGM inc. ".FE»?X=lTOPJ(fl>STEP108:2X=2X+iee*ST;I 

FZX>Z2G0T09^9 

9667 NEXT 

^SS PJ(ft>=PJ<fl>-X:IFPJ(fi,K0PJ(ft)=8 

9678 IF2X<Z2G0Ta9697 
3671 IFPP<ft)=0GOTO9679 

9672 PRINT"SELLING Pflf(hfiJS'':FORX=lT(FP(R)STEP10e:ZX=ZX+188*SK:IFZ 

X>ZZG(}T09677 

9675 NEXT 

9677 PP(fi)=PP<fi>-X:IFPP<fi><0PF(ft>=e 

967S IFZX:^Z2eOT£)9697 

9679 IFCRSCfi)=ajOT09K7 

9681 PRINT"SELLIfffi CLftSS fl STmiarjS";F0RX=iTCCftS<fl):ZX=ZX+658ee; 

IF2X>ZZGOT09685 

9^2 NEXT 

9685 CflS(R)=C:feCfl>-X:IFCflSCfl)<0a^S(fl>=8 

9686 IFZX>ZZG0T09697 
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9687 IFC3S<fl>=eG0T03g93 

%B9 PRII^T "SELLING CLfiSS E STfiTIDHS":FORX=lTOC8SCfi):ZX=ZX+40effi; 

IF:X>Z2GOT05695 

3691 NEKT 

9633 lFZXaZW10%3S 

%55 CBS(fi)=CSS(fl>-X:IFCBS(fl)<tiCBS(ft)=0 

9S97 RC.(ft>-6.PRINT"LIC!UIDftTI0?J COtlPLETEt" ;QCiSLe9S0S.R£TUI^^ 

9699 PRINr:FRlHT"ftS£ETS CRNHOT SfiTISFV CREDITORS. " 

9701 PRINTNf (:fl>; " OIL CO. GOES K»:RUPT VCU'R'E OUT OF THE Gfi 

HE. " 

9703 G(5lJE9886:OG*<fl>=*'OOG":GOT0936S 

9800 INPUT "HIT ENTER TO C0NTIfftJE%OP:RETUK^ 

9900 CLS 

9902 :^<=2:F0RL=lT(B.PRINTeX+i3.N$<L;i; : X=J^+13 : NE>(T 

9904 PRINT:PRINT"CflSH":X=130:FORL=lTOE:PRINTeX+12. "". iPRINTUSItfi 

fi*;RC<L>:X=X+i2:^EXT 

990e PRINTTCfeBV-." 

9908 PRINT" FOREIGN";X=258:FORL=1T08.PRINTC-X+12. ""/;PRINTUSINQfl* 

;FL0B(LJ:X=>!+12:t€XT 

9910 PRIUfT" DaiE£TIC'':X=322;F0RL=iT0e:PRINT&J^+12. "". :F1?INTUSlMGa 

$.:tlOB<L):X=J^+i2:NE>!T 

9912 PRINT"R£FINERIES":>!=3^:F0RL=iT0B:PRINTeX+12.R<L):X=>;+i2:l€ 

XT 

9914 PRINT"CLFISS fl":X=452:Fi3Fl-iT0E:PRirJTIIX+12,C.flS<L):!<=X+12:NEX 

T 

9916 PRINT"aflSS E";X=5i6:FQRL-lT0B:PRINTC<--i+12.Ces<L.VK=X+12:NEX 

T 

9918 PRINT"ST0C;KS" 

9920 PRINT" BLIJE C;HIP":X=644:F0RL=iT0B:PRINT@X+12.FlBa)+flP<L.J:X:= 

i'M2:NEXT 

9?22 PRINT" GROWTH" ::<=703;FOi?L=lTi:3e:PRIHT@X+12.GC<L>+GT(L):X=K+l 

2; NEXT 

9924 PRINT" £PECULftTIVE".X=772;F0RL=lT0B:PSINTC*X+12.PJ<L)+PP(LX 

X=X+i2:NEXT 

9926 PRIfJT"OIL i€LLS":X=e36;F0RL=lTt^.PRINTeX+12.O(L),X=K+12:l£X 

T 

9928 GOSU&'Si8a0 R£TttR{4 

99Se 'GfiHE EHD 

9934 IFfiG<ft)<DEG0TO996e 

9936 IFRC<ft»180^800fiN[>R<Fl):>RND<3>+3. lfll€CBS<fl»RHD<2S)+2K^HX^ 
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Accounrs 
Receivable II 



HEBBLER SOFTWARE SERVICES 

A comprehensive accounts receivable program 
with billing package offering menu oriented 
operation, audit trail with running balance for each 
account, date, description and exact amount for every 
filed transaction, special input procedures, automatic 
error checks — uses random data files. 

The package which allows you to: 

Maintain receivables files on 200 accounts 
Add new accounts any time 
Change information 
Perform selective information search 
Assign terms 

Print listing of overdue accounts 
Print statements automatically for unpaid accounts 
Print a custom message on statements 
Print mailing labels 

Print an accounts receivable summary for all accounts or unpaid 
accounts only 
• Post charges and credits at the keyboard 

Package includes one master diskette, one data diskette, 
and in depth instruction manual. Requires TRS-80 w^ith 
16K memory, two disk drives, and line printer. $79.95 



TheSoih^are Exchange 

6 SoulhStreet, Box 68,Milford,NH 03055 603-673-5744 




ADVAJ^CED 





by Lance Micklus - # 

First, we toots the tape version of PERSONAL FINANCE and , 
converted it for use under DOS. Then many new features were ,: 
added such as self -verifying files which protect themselves from 
most common hardware faults, and the BUDGET program 
which collects data - automatically from the CHECKING , 
program, and manually from the keyboard. Advanced Personal 
Finance will produce a 30-page report that gives you the total 
picture of your financial posture. To complete the package, a 
SAVINGS account program lets you use the one savings account 
as if it were ten individual accounts. This way you can set a 
certain amount of money aside for Christmas, save an additional 
amount for a rainy day, and keep track of how, much Is for what. 

Also included are programs to convert the data file on tape 
from the regular personal finance program to disk. 

On a 32K disk system, the package will handle about 200 
checks per month and 900 checks per year. There are 33 
different account names which are set up with DATA statements : 
in each program on the disk. 

The minimum system required is 32K Disk BASIC with one* 

..drive. The addition ot i^ line printer, a second drive, and 

upper/lower case video display all enhance the features. A 

second disk |not supplied) is required to store your data, as the 

program disk is very full; r .. •.. Price, $24.95. 

Original Tape Version: Personal Finance $9.95 

T^S TheSoHwareExchamge 
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(ft»R< fl>*8flH[)0<fl »RNi> ( 20) +2eT^£^a^40 

933S RETURN 

9940 aS:R?INT§17. "CONGRfltULfiTIOHS!!!!" 

9342 F^IHT:PRINT"TI€ BOfiRU OF DIRECTCftS OF ";M*(fl)j" HflVE JUST D 

EafiRED"" 

3344 PRINT"yOU AN OIL BfiRON ! ' VOU HIK THE Qf»E " 

3946 PRIKIilirUT "HIT EHFER F(»? FINRL STflTISTICS"jtf':G0SUB99ee.F 

a?F=lT0ie22STEP3:PRIMTeF, "EW>":HB<T;E?«> 

9969 aS^PRINT^flFTER M)£/2; " VERRS flS DIRECTOR OF \Ht<Hh". TH 

E" 

5362 PRI«T"BOfiR& OF DIRECTORS HfiS DECIDED flDEOUURTE PROGRESS HftS 

3364 PRIHT"HOT BEEH fIflDE BV THE COMPflNV UNDER VOUR DIRECTIOtt " 

3366 PRINT'VOU ARE FIRED. ..." :G»SUe9880 

5368 ffii$(ft)='OOG":y6=VG-i;IFV{K=lGOTO9370ELSERETURN 

3370 FORL=iTOB:IFOG*(L)="OOG"THENHEXT ELSEG0TO9972 

3971 a5:PRIt^T"N0 MORE fCTIVE PLflVERS Gftft ENDS":a» 

^72 fN.;G0T09348 

9375 '^m CffiCK 

9988 XC=R<fi)*ie 

5982 IFINT(XC)-SM(ft>=eTHENRETURN 

9335 IFDLOB(ft»RNDt32e8e>+RND(32ee0)+R«K32e0e)+65800THENRETURN 

3996 0tOG0T03935, IM^, 1^65 

9995 IFS«<fi»XC-RND(XC>+XC/2THEMSTlKNELSEGOT01Mie 

18900 IFSH<ft)?XC*<(RNO<2>+7>/'10>TtB«ETURMELS£GO7Oie910 

10005 IFSH<fl)>f<C*(CRM>G)+3>/18>TJCrKETURN 

10919 FX=RHD< 500) +10000 

10015 CLS;RRINT"E. P. fl. INVESTIGfillOH FIfCS VOU *"jF>i*SNj " FOR" 

1^28 PRIHT"IHSUFFICIEMT PO-LUTION CONTROL. " 

19025 PRINT-IN RKJITIGW YOU fif^ FORCED TO E«V ".SNt" POLLUTICN" 

19930 PRINT "CONTROL UHITS fiT *". SD "PER UNIT. " 

i90S5 GOSUB98W;RC(fi)=RC<ft)-<FJi*:SN+9;*SN):9l<fi)=SM(fl>+SH:SN=0;RE 

TURN 

12060 FORftZ=lTOe;IFOG*(fl2)="0OG"T}CK8J<=G!X+l:fEXT 

12002 IFE&;=BGOT099?iaSERETURN 



i 
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TYPING 
TUTOR 



by 

Roy Groth 

■^ 

you probably have often thought 
that It would be a lot easier if you 
didn't have to "hunt and peck" 
at the typewriter or 
computer keyboard. If you 
could only double your typing 
speed, the job would be done 
In half the time! And, with 
increased speed and confidence 
comes increased accuracy. 
Level H, 16K — $19.95 

Typing Tutor Is a set of programs designed to teach you touch 
typing — from tlie basics of learning where tfie keys are, to 
practice drills at speeds that would make a Selectric sh udder 1 Eacti 
lesson is displayed on the screen, including, at the early stages, a 
keyboard diagram. You are quizzed and graded, and you progress 
at your own pace. When you have mastered a lesson, the computer 
advances to the next, using CAI (computer aided instruction). 
Progress is fast, painless, and even fun as you keep pushing to 
break your own record. 

So, whether you're going back to school or just want to enter 
programs from SoftSide that much faster, Typing Tutor can help. 

Order a copy today and be a better typist by next week. 



TheSoitMateExcimngB 




Programming Probiem? Question about a TSE Program? 

Try our Hotliiie*^. 

Ydu can chH our progiaiftmers direct on Tuesday nj^ts ^om 7 lo 10 PM, (BUTT) 

(603) 673-5144 



a? 





DRAG RACE 

by Chris Freund 



THta Is a very short skill game 
for those who want to test their 
quickness and coordination. The 
player must coordinate shifting 
and accelerating to get the 
highest speed possible. The 
game starts out with the "car" in 
first gear. The player uses the 
Space bar as an accelerator, and 
he shifts by using the numbered 
key of the gear he wants to shift 
Into. The most important thing to 
remember is that you must let up 
on the space bar in order to shift. 
Once the car has been shifted 



(you can tell it's been shifted 
when the tachometer goes down), 
the player must accelerate quic)<- 
ly in order to keep from losing 
speed. This is done through the 
four gears. Time wilt eventually 
run out, and the final speed will 
be stated. Of course, if the player 
doesn't shift, and his tachometer 
goes too high, he'll blow an 
engine. Because an engine blows 
at random at high rpm's, top 
speed can be unpredictable, but 
anything over 130 Is good, and 
anything over 135 is pro. 



All -Pro, Top-FiMl, Funny C)rs - th« "Motown Shaksr," and "King Marshal r' b«tll* to ttie finish 
(nrhich doAsn't II* tar ahftad. con$ld0rfng thesa cars do tti« quarter mll« at an avaraga apeod ol 
240 mphafid 6.0 aacondtl) Ptiotograptia oi hfaw England Dfagway by Sharon Dtmmarle. 
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Things to note in the game: 

• the car starts out in first gear, no need to shift into it. 

• downshifting is not allowed, although a player can skip gears (this Is 
not good strategy). 

• to find out when an engine will blow, just experiment. II is partially 
random. 

• tjeing too quick in shifting can hurt since the program may 'miss" 
the shift. Experiment around for the best speed 




5 REH ************ 

*DRRSRRC£« 
♦ BV CHRIS FREIWD * 

*******iif^*** 

16 aS:PRINTCH?*<23);"DRftG RflCE!! 
USE Ttt SPfiCE BfiR flS AN RC- 
CaERftTOR, AMD SHIR GEARS 

(FROH l-S) W U5ING THOSE 
RESPECTIVE KEVS, DOH'T SHIFT 
WILE RCCELERATING. 

28 PRIHT"flL«flYS HATCH VOUR TflCH! 

QDOO LUCK'. ! 

VOU RRE RLREflOV IN FIRST GEflR. " 

39 IHPUT"PRESS ENTER TO BEGiriA 

46 aS:CLEftR6e6:DEFSTRfl-C 

56 ft=STRING*«i,i91>:pRIHTK.ft; : PRINTe258. fl; :f1?IHT8194,Ai iPRINfie 

45e,fl; :PRINT0514,A; ;F1?INTe7e6.R; 

66 ft=CHR$<191):FOftX=lT012:PRINT#62+X*5.X*2e; :PRMe575+X*5-Xi :NE 

XT:FORX=66T0126STEP5:reiNTeX>fti :PRlMTe«+5i2,fli :NEXT:PRIHT#130ifii 

:PRIMT»19e,fc :PRlNT9578,fii :PRINTe638,ft; :PRlNTW42,Ai :PRINfr»7e2,fl 

i 

70 PRINT»346, "SPEEDfflCTER") :PRIKT8792, "TACHOMETER X 1686"; 

80 PRIHTe54?, "OfiNGER S"; ;PRlHT856i> "BLOHOUI \"i ;PRIHT?525, " 1-SftF 

E-""i 

90 PRIKTe859,STRlNG»(ll,i91)i :PRim?987,STRIH(»ai>19i>i :PRItfTW 

23»STRING*(4,191)^" 1 %STRIN(i»(4,19i); :PRiNTe31& "SEAR ;"; 

180 PR1NT&1008, "PRESS ENTER TO START"; 

lie lFirKEy*OCHR$<U)THENil8 

115 PRIHT*W06>OR$(20)i 

128 G=1:S=0:T=5 

136 PRINTgl31,STRlNG*(59.32)i :PRINTW31,STRIH(»(5,146)J :PR1NTK4 

5,STRiH(»(59, 22); ;pRlHTe643.STRlN(a<T, 146); 

148 lFPE£K(14460)=128THEHi7eELSEClKQQOSUB258, 266, 276,286: IFS<eS=e 

156 iFTC5T=5 

166 G0T0188 

178 OMGGOSUB218-220,230,246:IFT>5e+RM)<5>6OTO29e 

186 PRIHT832?,6i :fl$=INKEVI:X=VflL(ft$):IFPEEK(i440e)=6fM)}t>6T>€HG= 

X.T=16 

1S6 V=V+1:IFY=60TI«C10 
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2M 0010138 

218 T=T*4;S=S+1:RETIJRN 

228 T=T+1 3:S=S+. 75: RETURN 

239 T=Tt2.5:S=S+.5:RETUIlH 

248 T=T+2;S=S+. 3:ReU»< 

258 T=T-2:S=5-.5:RE™RH 

268 T=T-15:S=S-.4:RETURN 

2?e T=T-12:S=S-.3:RFrURH 

288 T=T-i:S=S-.2iRETll»» 

290 PRIHT?8%.QR*(3e)j "VOU HflO AM ENGItC eLOHOUT flT";T*2ee; "RPM 



388 GOTOlie 

316 P«MWe8,CHR*(39);''FlHflL SPEH>: 
RNOTHER OnC'i 

328 IFlNK£V*OG«*a35THEN328 
338 RUN 



'jS*4;*HPH press EMTER for 




Mllka Evegen^s focKet car '^Eartliquak«. 
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A powerful rnonltor (or the TRS-BO with special ability in Tracing and 
Debugging. Single Step through machine language programs or set up to 
three breakpoints, and look at this display formal! 






FIF BC [>E HL VA IV flF' BC DE'' HL" SP PC 
0044 9^0 C800 B77C. S4K3 FFFF Bite 6006 40£ie ]:FC0 4iFC- 4490 
4406 LD R. 93 

All ths power of ragular monitors as w«ll. Look at these commands: 



A FIHSTfiji k; 

A FIRST JJ 

B 

B VALA 

B VALA VALB(0) 

C 

D Fifl3T(0) LASTlFFFF) 

E FinST(O) 

F FIRST LAST VALUE 

G BRKPTS tJ ma>i.> 

H FIRST LAST VALUE 

I PORT 

K 

L 

L SECTOR MEMORY COUNTdl 

M FIRST LAST SLOCK 

N 

NO 

N VALUE 

N FIRST 

O PORT VALUE 

P 

PEI^TTRT 

P FIRST iLAST 

Q PIHST LAST 

R 

S RRST LAST OPTION(O) 

T COLI^fT OFTiON(6) 

U FIRST COUNT OFnON(0> 

V RRST LAST BLOCK 

W SECTOR MEMORY C0UNT(1) 

X FIRST LAST BLOCK 

Z FIRST LAST VALUEfOI 



■ sen dump 

-^jrmal'.&d ASCI, -juuip 

slart ol branch labie 

dlsplav in decimal 

hex arlihrnenc: 

ch&ck systwii taps 

dump hen 

edit mfimtiry 

find byte 

Boi bteeHpomts, continue 

find WDicl 

read port 

keyboard ocho 

load system tape 

load from dish 

move (tiemory 

display syml»l I able 

symbol lable to tape 

define valu^ lor symbol Lable 

defloe start symbol table 

write to port 

InltlBllite memory blocks 

wflte memory tilaolta and slart 

define a memory block 

calculate checksum 

di^lay ' modify reglsteis 

disaBssmbl^r 

ttace Instructiens 

unfof matted tape ilO 

verity memory 

write 10 disk 

excfiange memory 



1SK, 32 K, and 48 K varsions on one cassette for $24.9S 
(Use from tape in Level 11 or as a command file from Disk) 

TheSattwareExchaitge 

6 South Street, Box 68, Milford, NH 03055 603-673-5144 





HRISTMAI 
"SHOW AND TELL" 

A Fun Game of Quick Recall for 

the TRS-80 by Randy Hawkins 




SHOW AND TELL Is a game for 
the TRS-80 which tests your abili- 
ty to remember a series of short 
phrases and also provides some 
humorous results. The game pro- 
gram is written for two players, 
takes slightly less than 4K of 
memory, and Is in Level II BASIC. 
In some ways, SHOW AND TELL 
Is similar to other memory quiz 
games (such as Concentration), 
but It is a challenging and enter- 
taining game in Its own right. 

After entering your names, a 
screen of 9 words or phrases will 
flash on the game board for a few 
seconds. Try your best to 
memorize the phrases and their 
positions on the board. After the 
board is cleared, a question will 
be directed to one of the two 
players. That player will try to 
remember the correct answer and 
respond with the number cor- 
responding to that answer. If he 
is correct, he receives one point 
and the right to continue. If he is 
wrong, he may come up with a 
hilarious answer, {Q: Who said 
Humbug? A: Rudolph). The game 
continues until all 9 questions 
have successfully been 
answered, and goes on to a se- 
cond round where all questions 
are worth 2 points. The winner is 
the player with the most points 
after two rounds. 

Because of the random 
number function in the program, 
no two games will be exactly 
alike. Even though the questions 
and answers will be the same, 



their position on the board and 
the order in which the the ques- 
tions are asked will always be dif- 
ferent. If you do tire of the ques- 
tions and answers provided, 
however, it is a simple matter to 
make up your own series. Just 
remember to keep all the answers 
similar in nature (for example, 
places, things, people's names, 
actions, etc.) so that those funny 
combinations of questions and 
answers will always turn up. The 
questions and answers are plac- 
ed in the data statement of lines 
470-550 for round one, and lines 
560-640 for round two. (Editor's 
note: as you can see, we altered 
the data to create a Christmas 
game.) 

As you become more adept at 
memorizing the phrases, you 
might wish to shorten the time 
the phrases are displayed at the 
beginning of the game. This is 
done by changing the upper limit 
of the FOR-NEXT loop of line 
1040. 

An alternative to the DATA 
statements might be reading the 
data off a file from the cassettes. 
In this way, many sets of ques- 
tions and answers could be held 
so that a completely new game 
could bs played with each execu- 
tion. 

Except for the optional 
changes suggested above, the 
program should be ready to run. 
So find a friend, and play "SHOW 
AND TELL", and see how good 
your memory really Is. 
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5 R£N *************** 

* Cf*I£THflS Sim AND TELL * 

* BV RfM>V HfMCINS * 
■ * riOOJFIED BV FRElDfl CW * 

******** + *;i(:t#ti(: 

H aS;CtEftRft8@:e$=5TRIfaj$<49." *'>:RfM)ai 

16 iffUT^HHC IS PLBVER «i";Nt(l> 

26 WUT"HHO IS PLftVER »2"iM*':2) 

a PftINT"TRV TO PENORI?E THE FOLLOHIHG SCRtetJ" PRINf'BNSWER TtC 

QUESTIONS WITH THE t:£«3!ECT NUflSER" fORI=iTf)1500:NEXT 

25 S<lJ=g:5(2>=0:U=9 

38 F0RMTQ9:REflDe$a),fW<]) HEXTl 

35 !J=U+1 

48 Fam=lTC3 

Se J=ltND(3> 

ee K=RHD<3):IFK=JTt€N60 

30 NEXTM 

180 F0rai=iTa9t<l1)=*1:tEKTM 

110 FCiR;Z=lTQ5:J=Sra?(9> 

120 K=raj|>0) : IFK=JrHEr-a2e 

OS L(10)=L(K;:L(;K)=L<J):L(J><a^) f£KTZ 

200 P=l^&<2):QOSUBi0K!:Rl=0 

2eb F0RG=1TG? 

2?^ Fa5I=lTO3:IF8$(DO""THEfJ2Si0 

2fi0 NEk'TI :6CfTCi423 

290 IFe?(Q>=""THEH42e 

291 PRINT§77e..CHR$(30> 

310 PR]MTW10.fV*fl^ " ";S^:i;,W(2>. ": %S'2) 

311 PRINTi??^N$(Pj,■^ "ifJUm:. 

312 l^'UTQ:lFa<inR(5>STH£NSil 
330 F1?INTC'H3^^4+7,.fi$(HQ>-', 
2Ai6 FijRI=lTi:ii5ti0:t-IEXTI 

345 PRINT^*f4+7,. Bfj 

350 ]FL-(Q)C>aTHEM4i0 

l&d S(P>=S<P>tiJ 

370 PRINTI*9ia N*(l). " : ". Scl>, N$(2 j. " "..'St2> 



380 (.a(G'="" 

235 ii[iT04£^ 

41^ ]fP=i'f^t-iP=l:ffl:ir04Vii 

411 P=2 

42e NHKTG 

425 GOTCese 

4ie PRlNTSi;72. "mri GVER' ======= ".; 

446 IFSa.i>Ss2)MI=N$<l>ELSEH*=N*(2? 

45y PRINT' ";M$," iJiNS:'^r:HS*G&>. . . : 

460 GOT04i;8 

4?@ [^Tfl"RED NKED REi^OEER". "RLftOLPH" 

4S& MTR'TftT Glfi' WITH PEFlSlO", "SfifJTft CLiiUS" 

4SI0 £JfiTfl"FHT (aiV WtTHOyT BEm"> "Ff^ffiTV" 

501^1 {sRTfCMHO STOLE CHRISTt1ft5%"GRllCH'' 

510 MTft^.tESyS- ECiTt€R"."t1S;V^ 

52& mf\"mi EVEM HE MAS STIRRING", "tlOLlSE" 

556 &Hm"Htfel SftID HW1BUQ%"SCfiOCK£" 

546 DftT!Fl"fStVE FIRST CI«ISTtffiS QlFrS", "ktlSE tSN" 

5^ Dfllrt^RUW m TR TLItl".. "LITTLE mWEJR Bm"' 

568 i)aTFi"t*Ef^ JESfJS NfiS @3Rf-l'\ "BETHLEIftfl" 

570 5FlTft"H0LK OMfflENTS". "CHRfSTtlflS TREE" 

5S0 DftTft"NHflT ft SLED NEEDS", "SNOJ" 

5S [3fiTfi"WHER:E Sf^TR LIVES".- "NWlH POLE" 

fiee [)ftTfi"HOW SftHTf* ENTERS htOUSE", THIUHEV" 

fcie [>HTR"NOT A CRIB", "tlf^ER" 

S2S DrtTfl-SENT TO VlXIR FRIENDS".- "CftRDS" 

6":^3 [iHT8"HftMi;iS ON TREE", "CfMsV CflfJE" 

640 WTft'TLftCS eV THE CHIPlffl-V fJlTH CHRE", "SiOLKIffc" 

i&m CIS : FOR>i=0TO127 : SET (>;, 2> : >£T < X, 3 > . NE>:T 

iSli Ft:iRv=2l0iti:SET<aY>:SET(,S.V>:ST(12?,V);NEXT 

i82'0 f W I =i Itty PR: I MTy ^ I *e:4Ti ; , I ^ NEXT 

1025 IF m=l RETURN 

1 03;ti FOR i =1T03 mti'^M 1^*4+ 7 ) , Ht a = i J ^ , ■ NE>:'i 

1640 F£SI=lTCrl5e0:hEKTI:fli=l:GOTO1009 

M^ eiiPRINTLK<£5,^'Emi # FIRST GfiflE ~ PRESS ENTER F* SECONt 

HALF" 

iMB PRIfiT&S&y, "^RrTE Ef^:H fiNSSJES IS tJORTH 2 POINTS IN ROM) THO 



3628 !NPUTEJ:RiTlJW 

^^^^^ ^^' m 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors and 
omissions in TRSDOS 2.1 and disk BASIC, yet the two are 
completely compatible! Programs and files saved under one can 
be used with the other interchangeably. Going from TRSDOS 
to NEWDOS is like going from Level I to Level It: more 

power, more convenience, greater speed. 



NEWDOS NEWDOS+ 



• Use all CK)S commands 
(inci, directory) in BASIC 
Automatically load and run 
a BASIC program 

on power-up 

• Produce variable cross- 
reference tables 

• Open E' to add to 
sequential files 

• Append files 

• Use your line printer as 
a screen printer 

a Renumber BASIC programs 

6 End keyboard bounce 



Editor/ Assembler for disk • 

Disassembler • 
(Z80 machine code) 

LM Offset-allows transfer of any • 
system tape to a disk file 
(automatically relocated) 
BASICI-Level one BASIC • 
saved on disk 
LV1DSKSL - not a typo, this ■ 
saves and loads BASIC1 
programs to disk 

DIRCHECK-tests and lists, 
disk directory 

SUPERZAP-dispiay/print/modify • 
any location in memory or on disk 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 

Apparat's NEWDOS is fully documented and available for 
only $49.95. NEWDOS -I-, Just $99.95 

NOTE: Use of this software nnay require documentation 
available only with the purchase oif Radio Shack TRSDOS 
and/or the Radio Shack Editor/ Assembler. 








On a trek through the vast uncharted centeF of the SaharaOesert in 
search of a missing explorer, yqu come upon a pyramid recently ex- 
posed by -the shifting sands. Will yoy be able to collect ItSi tr^asgres |k 
and escape? Or will you join it^ deni:zens forihat long etefnaf sleep? ■ . 

16KSystejnCassetta$14.95 , ''-'■' 

Want to- know what adventure is before you part with that much 
f ' '■ money? Try, the Adventure Sannpler! Adventure is a minlVerslondf 
Adventure 1, offering hours (instead of weeivS) of challenge for only 

s^..m. '..'■■.■■.. 

WirnineiTiiis-tvrogram.maybaasidiotive, Isading.io pioloni3fidancthaibitual-^!!vert!ufln;i 

' ;■ . 6 ScjuthStreei, Box 6B, Milfmt Nk^ 03055 " W3'673-5W 
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Index To 

BASIC REFERENCE 
MANUAL 



by Kemp J. Beafy 



A 


■9/4, A/4 


Abbreviations 


1f7 


ABS 


7/1, A/13 


AND 


1/S 8/10 


Arithmetic Functions 


Chapter 7, A/13 


Arithmetic Operators . . . 


1/4, A/2 


Array/Matrix Subroutines 


6/+« 


Array Multiplication 


6/6 


Arrays 


Chapter 6, 1/4 


ASC 


5/J A/12 


ASCIICharacterCodes . 


C/2 


ATN 


7/1, A/13 


AUTO 


2fl,A/3 



I Base Conversions Appendix G 
Bit Manipulation 8/10 

Bitwise Conr)parisc»is 8/10 

I BREAK 1/3, A/1 



Codes, Error B/1 

Codes, Graphics C/2 

Codes, Space Compression C/2 

Commands Chapter 2, A/3 

Commands, Disk Basic 10/3 

Comparisons, String S/2 

Constants, Typing of 4/15 

CONT 2/3, A/3 

Control Codes C/1 

Conversions, Base Appendix G 

Conversion, Data 4/14 

Conversion, Type 4/14 

COS 7l2,Ain 

Cosecant , . , F/1 

Cotangent F/1 

CSAVE 2,13 

CSNG 712. AIM 

Customer Information H/2 

CVD 10/4 

CVI 10/4 

CVS 10/4 



InC SI'S, A/5 

Cassettes, Dual 10/1 

Cassette Recorder, Use of ii 

CDBL 7/1, A/13 

CHR$ 5/4,A/12 

I CINT 7n, A/13 

I CLEAR (Key) 1/2, A/1 

CLEAR 2/2, 4/3, A/3, A/8 

I CLOAD 2/2 

I CLOAD? 2/2 

CLOSE 101/3 

ICLS, ,-. 8/2, A/11 

I Codes 10/3 

Codes, ASCII C/2 

I Codes, Control C/1 



D 1/4, A/2 

nD 9/5,A/5 

DATA 3/8, A/6 

Data Conversion 4/14 

DEFDBL 4/2, A/8 

DEF FN 10/4 

DEFINT 4/1, A/8 

DEFSNG 4/2, A/8 

DEFSTR 4/2, A/8 

DEFUSR 10/4 

DELETE 2/3, A/3 

Derived Functions Appendix F 

DIM 4/3, A/6 

Disk Basic Commands 1(V3 

Disk Basic Input/Output Functions . lOld 

DSKF 10/4 

Dual Cassettes 10/I 
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INDEX TO BASIC R 

I 

I E it 



E 9/4, A/2, A/4 

EDIT -,.- 2/4, 9/1, A/3 

Editing Chapter 9 

Edit Mode Subcommands A/4 

ELSE 4/13, A/11 

END 4/4, A/9 

ENTER 1/2, 1/3, 9/2. A/1, A/4 

EOF 10/4 

ERL B/2, A/14 

ERROR ,.,4/10, A/10 

Error- Codes B/1 

Error Messages .1/6, B/2 

Error Routine Functions 8/2-3 

ERR/2 + 1 e/3, A/14 

Execution, Speeding Up 11/2 

EXP 7/2, A/1 3 

Expansion Interface Chapter 10 



FIELD 10/3 

Field Specifiers 3/3-5, A/7 

FIX 7/2, A/13 

FOR TO STEP 4/8, A/10 

PRE 5/5, A/12 

Functions, Arithmetic . , . Chapter 7, A/1 3 

Functions, Derived F/1 

Functions, Intrinsic 1/6 

Functions, Special A/14 

Functions, String A/12 



H ., 9/5, A/5 

Hyperbolic Consecant F/1 

Hyperbolic Cosine F/1 

Hyperbolic Cotangent F/1 

Hyperbolic Secant ,., , F/1 

Hyperbolic Sine , . , , , , F/1 

Hyperbolic Tangent .... v...v.-.-j-;v.v--;3,-..:. Fil 



I 9/4, A/4 

IF .-, ...,.,, 4/12, A/11 

INKEYJ 5/5, A/12 

INP 8/4, A/14 

INPUT # 3/11, A/6 

INPUT 3/7, A/6 

Input/ Output Chapters, A/5 

Input'Output, String 5/1 

INSTR 10/4 

Instring Subroutine 5/9 

INT 7/3, A/13 

Intrinsic Functions 1/6 

..F/1 
.,F/1 
..F/1 
.,F/1 
..F/1 
..F/1 
,,F/1 
..F/1 
..F/1 



Inverse Cosine 

Inverse Cotangent 

I nverse Cosecant 

Inverse Hyperbolic Cosecant. , , . 

Inverse Hyperbolic Cosine 

inverse Hyperbolic Cotangent. . . 

Inverse Hyperbolic Secant 

Inverse Hyperbolic Sine 

Inverse Hyperbolic Tangent 

Inverse Secant F/1 

Inverse Sine F/1 



General Information Chapter 1 

GET : 10/3 

Glossary , , 1/8 

COSUB 4/6, A/9 

GOTO 4/5. A/9 

Graphics 1/6, 8/1-2, A/11 

Graphics Codes C/2 



nKc. . 
KILL. 



. 9/6, A/5 
....10/3 



L 9/3, A/4 

LEFTS 5/6, A/ 12 

LEN 5/6, A/12 
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LET 4/4, A/9 

Level It Summary Appendix A 

LINE INPUT 10/4 

Line Printer 10/2 

LIST 2/4, A/3 

LLIST 10/2 

LOAD 10/3 

Loading Cassette Programs iv 

LOC 10/4 

LOF 10/4 

LOG 7/3, A/13 

Logical Operators 1/5, 8/10-12 

LPRINT 10/2 

LSET 10/3 
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Map, Memory D/1-2 

Matrix Addition , 6/5 

Matrix input (2 Dim) 6/4 

Matrix Input (3 Dim) 6/5 

Matrix Multiplication 6/5, 5/6 

MatriK Print 6/4 

/VlatrixRead 6/4 

Matrix Subroutines 6/4* 

Matrix Transposition , , 6/5 

Matrix Zero 6/4 

MEM a/4, A/14 

Memorv Map Dri-2 

Memory Overhead A/16 

Memory Space, Saving , , . , 11/1 

MERGE 10/3 

MID$ 5/6,10/4, A/12 

Mini Disks 10/3 

MKD$ , 10/4 

MKII 10/4 

MKS$ 10/4 
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ON ERROR GOTO 4/11 A/10 

ONGOSU8 4/7, A/9 

ON GOTO 4/6, A / 9 

OPEN 10/3 

Operating Modes. . . , . , i/-) 

Operations, String 5/3 

Operational Hierarchy 1/6, A/3 

Operations. Order of , 1/6, A/3 

Operators, Arithmetic 1/4, A/2 

Operators, Logical 1/5 

Operators, Relational 1/5, A/2 

Operators, String 1/5, a/2 

OR 1/5,8/10 

Order of Operations 1/6, A/3 

OUT , 6/4, A/11 

Output Chapter 3, A/5 



PEEK , 8/5, A/14 

POINT 8/2, A/14 

POKE 8/5, A/11 

POS 8/6, A/14 

Power -LJp 1/1 

PRINT 3/1, 10/3, A/5 

PRINT TAB 3/2, A/6 

PRINT USING 3/3, A/6 

PRINT® 3/2, A/6 

Print # 3/10, A/6 

Program Limits A/T6 

Program Statements Chapter 4, A/8 

PUT 10/3 



. 9/4, A/4 



NAME - , 10/3 

NEW 2/4, A/4 

NEXT 4/8, A/10 

NOT 1/5,8/11 



RAM Memory Expansion 10/4 

RANDOM 7/3, A/10 

READ 3/9, A/6 

Ready-Aim-Fire H/6 

Reiational Operators. 1/5, A/2 



REM 

Reserved Words . 

RESET 

RESTORE 



4/12, A/10 

A/15 

8/2, A/11 

J/10, A/6 

RESUME 4/11, A/10 

RETURN 4/6, A/9 

RIGHTS 5/7, A/12 

RND 7/3,A/13 

RSET 10/3 

RUN 2/4, A/4 



nSc 9/6, A/5 

SAVE 10/3 

Saving Memory Space .11/1 

Saving Time and Space Chapter 11 

Scaler MultipJication 6/5 

Secant F/1 

SET 8/1, A/11 

SCN 7/4, A/13 

SHIFT® 1/3, A/1 

SHIFJJ* 1/2, A/1 

SHIFT-^ 1/2, A/1 

SHIFTT 9/3, A/4 

SIN 7/4,A/14 

Space Compression Codes C/2 

Space Ship Lander H/1 

Special Features.. ,' Chapters 

Special Function Keys 1/2 

Special Functions A/14 

SQR 7/4,A/14 

STEP 4/8 

STOP 4^5 A/9 

String Comparisons 5/2 

String Functions A/12 

String Input/Output 5/1 

String Operations 5/3 



String Operators 1/5, A/2 

Strings Chapter 5 

STRINGS 5/7, A/12 

STRJ 5/7, A/12 

SYSTEM 2/5, A/4 

System Set Up i 

T 

TAB 3/2, A/6 

TAN ?/4,A/14 

Target Practice H/5 

THEN 4/13, A/11 

TIME! 10/4 

Transposition, Matrix 6/5 

Triangle Computation w/Craphics. . . H/4 

TROFF 2/5, A/4 

TRON 2/5, A/4 

Type Conversion 4/14 

Type Conversions, Effects of 4/1 S 

Type Declaration Characters 1/3, A/2 

Typing of Constants 4/15 
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User Programs 
USR 



. Appendix H 
,,.8/7, A/14 
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VAL 5/8, A/12 

Variable, Array, 1/4 

Variable Name$ 1/3 

Variable Types 1/3, A/2 

VARPTR 8/8, A/14 

Video Display Worksheet . , , Appendix E 

W 

Worksheet, Video Display. . , Appendix E 
X 

X 9/3, A/4 
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nSpace-bar 9/2 

! 1/4, 3/4, A/2. A/7 

# 1/4, 3/3, A/2, A/7 

$ 1/4, A/2 

$J 3/4, A/7 
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%% 

&H 
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3/4, A/7 
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.1/4, 1/5, 3/4, A/2, A/7 

1/7, 4/12, A/1 
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.... 1/7, 3/4, A/1, A/7 
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Lance Micklus' 
ST80-the Smart 
Terminal Program- 
just got SMARTER!! 




ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80, 



USING ST80D, your TRS-80 can do all this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data fi.im the timesharing computer can 
then be sent back to the TRS-80. 

One TRS-80 can generate a data base and share it with 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables. Conversion from one 
set of tables to another takes only seconds. 

Auto logon feature sends your account name, number 
and password upon request. 

ST80D can transmit any type of TRS-80 ASCII file, 
including BAS!C programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone. 

STOOD is a practical, full-feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harris/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 

If you're looking for a professional quality product, 
not an amateur program, then order ST80D today! 



For 32K 
disk systems 
$79.95 
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TOWERS OF HANOI 

by Chet Kaczneski 

The object is to move up to seven disks from a left hand 
needle to a right needle, using a middle needle as 
necessary, in the least amount of moves. The rules are: 

a. Only the top disl< may be moved in any 
particular stack. 

b. Only one disk at a time can be moved. 

0. A larger disk cannot be placed upon a smaller one. 

The program checks for validity of inputs. There is one 
special code that redraws the screen. 

10 '* + + TONERS OF HANOI *** 

*+* MODIFIED BV *** 

*** CHET ftfiCZNESKI **i 

29'***RTtt9 PIOMEEF: DR *** 

*** ftURFREESBORO *** 

*** TENNESSEE *** 

*** 371S0 *** 

30 CL5.:aERR400 

40 CCFINT D-2:[iEFSTR fl-C 

m PRINTCH?f<23>;PRIfJTe39C, "TOWERS OF HfiHOI" 

70 FOR Di=lT018£«:NEKT:PRINT;P1?INTTfffi<2> " IMSTRUCTIESfS <V/Hr> 

80 ft=It*:EV*:IF fi="" imfi 86 

90 IF fi="V" THEH 1248 

lee as : GOTO isse 

lie PRINT(*455,. "ENTER WHSER OF DISKS <1 TO 7)"; 

120 C9=Ih»<EV*;IF C5='"' THEK 129 

136 S=VfH:C9> 

148 IF S<1 OR S>7 J\£H CLS:OT0 118 

150 CLS:FOR R=l TO 7; FOR T=i TO J 

leS DN<R..T>=e:NEKT LR 

17@ D=7:y=7:F0R X=ST01 STEP-l 

180 DN(V,.l)=D;D=D-i:V=V~l:ffi)iT 

190 PRIHTgll', "1"; :PRINTS22, "2"; :PRINTi52. "2" 

206 FOR X=64 TO 512 STEP 64 

219 PRINT?>;.B2:NE>;T 
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230 E=l;T=i 

240 FOR K=7 TO 1 STEP -i. 

259 K2=K:K1=K 

260 IF l>N(K.i>=8 THEtJ 290 
2^ (SJSIB 870 

2^ NE>iT 

290 PRINTe64e, "MHICH DISK WOUU VOU LIKE TO WM\ 

300 fl5=If*KEV$;IF R5="" THEH 396 

318 D=Vfl<fi5) 

32S IF Da OR D>7 LET f»=R4:60SUB i060:GOTO256 

336 PRINT 0; ;FOR ZZ=l TO 233:hEXT:PRINT@640,C«?$(:3i> 

340 FOR R=l TO 7:F0R T=i TO 3 

350 IF [)N(R,T>=D THEM 390 

366 \€:ai T. R 

376 PRINTI»e48jCHR*Gl):F0R 22=1 TO 233;HEXT 

386 GOTO 290 

390 FOR CNi TO 1 STEP -1 

400 IF DN(Q,T)=0 THEN 428 

418 IF DN<6,T)<D LET fl0=fi2:(iOSUB ie60;QOTO 299 

420 (e>a:PRlHTK4e,CHR$<31) 

430 f1?IHTK40, TLflCE DISK". \>i "OH NHIOH l€EDLE"; 

440 fl5=MEW;IF fl5='"' THEN 440 

450 H=Vfl(H5> 

460 IF fKl CK N>3 LET FB=fl4:G0SUB i0M:M>TO 436 

470 PRINTN:FOR Z2=l TO 233:NE>a 

480 PRINT9640,CHR*(Sl> 

4^ T=N 

560 FtH? R=l TO 7 

510 IF DN<R,T>08 THEN 546 

520 NEKT 

530 GOTO 580 

540 IF 0<»l(R,T) THEN 588 

550 IF D=DH<R.T) LET fl0=^:GOSUe 18e0:GOTO 2^ 

566 fi9=ft3:(jOSUe 1860 

570 GOTO 298 

580 E=6:F0R V=l TO ? 

5% ¥m «=i TO 3 

®0 IF CW^.V. U^=D THEM (>^ 
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€10 PENT H,V 
628 T=M:Kl=DiK2=V 

630 G0SUB87B 

646 FOR V=1T07:FQR H=^T02 

K0 IF DH(V.M)=D THEN 678 

seercKT h.v 

676 Fffl? D=7 TO 1 STEP-1 

630 IF WKU,N?=e THEN 710 

eSQ fCKT 

700 U=7:G0T0 676 

710 DN<U,N>=MICV.«):E:*I(V.«>=0 

720H=H+i:E=l:FOR V=i TO 7 

720 FOR W=l TO 3 

740 IF I*t<V.M?=D T«N 766 

750 fEXT W»V 

766 T=W;Kl=D;f(£=V.GOSl« 870 

770 FOR R=l TO 7;F0R T=l TO 2 

780 IF WKR.T>Oe R?INT0640,Qffi$(:Ji);a)TO29e 

790 NEXT LR 

800 FRINT?64e.CHR*Cn> 

810 PRINTJ655, "VOU fID IT iN";H; "MOVES. " 

S20 PRIHTe730. "ftGfilN <V/N)"; 

828 C9=INKEV$:IF C9="" THEN 830 

840 IF C3=''V" TffiN aS:H=0:6OTO ilO 

858 END 

370 IF T=l P=452 

880 IF T=2 P=472 

^ IF T=3 P=492 

906 IF Kl=? C?=C7 

910 IF Kl=6 C8=C6 

920 IF Kl=5 C8=C:5 

33S IF Kl=4 C8=C4 

940 IF Kl=3 CS=Ci 

950 IF Kl=2 e&=C:2 

968 IF til^ CS<:1 

978 IF K2=7 ?P=f 

930 IF t(2=b PP=P-64 

3% IF K2=5 PP=P-lg8 

1000 IF K2=4 PF=F-192 

10ie IF K2=3 Ff=P-256 
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1820 IF K2=2 PP=P-220 
m» IF Ka=i PP=P-284 
1648 IF E=e C8=C8 

1956 Pft]NTiPP,C8,: RETURN 

1066 PRINT964e.CHR*(31>;PRINTe650>fi9;f{3fZ2=l TO 2B3,fEKT 
1076 FRINT§64e..CHRI<3a.):RETURH 
16^ ftl=''lWTT DISK WOULD VtHJ LIKE TO MOVE" 
1996 fi2="THflT DISK IS BELOH MOTHER!" 
nee fi3="CflH'T PLACE R Lf«GER DI5K OH ft 5MfiLLER ONE" 
1118 fW=". .. ILLEGftL EKTRV,," 
il2eei=STRIMCi(19,32> 

1120 B2=S^INCi$C12. 32>+01RJ<149)+Bl+Cf«*(149)+Bi+CH?*<149) 
1146 63=STRINGtC12, 17e>+C>ffi$(i81HSTRIHG$(19, i76)+D«*(181>+STRI 
M6*<15. 1?6>+C«»(18i>i-STRIK6$(11, 176) 
11^ Ce=STRING*(8,l^>+CHR$a49>+STRIHG*(8.128> 
1160 C1=ETRINQ$(?. 2£)K:HR$(l^>+CHR*(i89)+CHRJa48)+'*l" 
1178 C2=STRING$<6. 22>t£TRir«i*C2. 188)+CHRJ(189)+CHR$(188>+CH?$<14 
8>+'2" 

1186 C3=STRINGf<5,32>^STRING$(3.1^)+CHR*<133)+STRIMG$(2.188)+CK 
R$(148>+''r 

11^ C4=STRING*(4, 32>+5TRIHG*(4> 1SS>+CH?$(1^>+STRIIJG$<2. i88>+CH 
R*i:i48)+"4'' 

1200 C5=STRIfB*(2. i2)+S.TRIHG*(5. 18S>+CHR$(189)+STRIfJG$(4, 188>+CH 
R$(148)+"5" 

1216 C6=STRING*(2.i2>^-STR]NGt(6.iS8>+CHR*<189>+STRING*(5.188>+CH 
R*C148)+"6» 

1220 C7=CHF;$a2)+STRl(iG$<7, i^)+riiR*a89)+STRIN(3(6.. i88>+a«$a4 
8>+"7" 

12^ GOTO lie 

1240 aS:PRINT"!H THIS PUZZLE VOU MILL TRi^SFER DISKS FROM THE L 
EFT NEEC>LE":PRINT"TO THE RIGHT IN THE LERST ftOVES, l!P TO ? DISK 
SmiBi. CHOSEN. « 

1250 PRIHT-THE NEEEIES ffi?E I4MERED h2.- mb 3. WITH 1 BEIHG T^€ 
IEFT":PRINT"NEEDLE, 2 THE MIDDLE. fiND 1 THE RIGHT. ";PRINT 
1266 F1?IKT"TfC DISKS ftRE NLSIBERED Fi^M 1 10 7 WITH 7 Ttff LARGEST 
, ':PRM"6 TJ£ ^EXL, . ftND 1 THE SMflLlESI. ":PRINT:PRINT 
1270 PRINT'TRV 3 DISKS IF IT'S VOUR FIRST TIME, fiND THEN GRSDUfiL 
LV" 

1280 fN?INT"MC«K UP TO 7 DISCS. *** GOC* LLCK ***" 

1^0 PRINTiPRINT-PRESS ';CHR*G4>.;" TO BEGIN'^ iIMPl/T ft:GOT0 186 
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Your BASIC Bookstore 



LEARNING LEVEL II by David Lien. 
The long-awaited foliow-up to the 
much-loved Level I User's Manual. 

$15.95 + $1 shipping 

THE BASIC HANDBOOK: The book 
you need to learn new conrimands 
and refer to connmands you l^now 
already. It gives routines for conver- 
ting programs which require a com- 
mand your BASIC doesn't have. Great 
for converting programs from other 
BASIC'S. 

$14.95 + $1 shipping 

THE LITTLE BOOK OF BASIC STYLE: 

Add style, efficiency, and productivi- 
ty to your programming. Move up 
from designing business systems for 
lemonade stands to Maxim's of 
Paris! 

$5.95 + $1 shipping 

INTRODUCTION TO TRS-80 
GRAPHICS: A Guide to SET and 
RESET graphics on the TRS-80. 
Covers constructing geometric 
figures, plotting curves, PRINT and 
PLOT positions in Level I BASIC. 

$7.95 + $1 shipping 
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For Machine Language Programming 



BEGINNERS 

TRS-80 ASSEMBLY LANGUAGE PRO- 
GRAMMING: The best current in- 
troduction to machine language at a 
bargain price. This is not a series of 
easy lessons, but an intermediate 
level discussion of what you can do 
in machine language. 

$3.95+ $1 shipping 

JOURNEYMEN 
Z-80 INSTRUCTION HANDBOOK: 

Reference guide for the Z-80, giving 
the instructions and telling briefly 
liowto use them. 

$4.95 + $1 shipping 



Z-80 SOFTWARE GOURMET GUIDE 
AND COOKBOOK: Weii over 100 utili- 
ty, search, sort, and arithmetic 
routines, pius how to use them and 
what they do. Well written and easy 
to understand. 

$14.95 + $1 shipping 

SARGON • A COMPUTER CHESS 
PROGRAM: Program Sargon into 
your computer using the Assembler, 
or use the listings to understand how 
it is done. Many useful subroutines. 

$14.95+ $1 shipping 







SLALOM 

by Denslo 
Hamlin 



One definition of the period from i\^onday morning to 
Friday afternoon is "an interval between sl<i weekends 
dedicated to paying for the iift tickets". With this pro- 
gram, you can ski every day after work without a lift 
ticket. With daily practice, you might be good enough for 
the Olympics. 
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CKRLLEN6E" 



♦SLftLOH * 

* fiV DEHSLO HflNLIH « 

* t»>VRIGHT <C> 1S79 * 
« ALL RIGHTS RESERVED * 

leOEFlHT ftB,IXX,[>:&IHX(166) 
26 CLSimrd" S K I 

ZSPRIMT" === ====:==- 

MPRIHT" 

VOU HRV TRV VOIR SKia (M> BE RfKTED f)T ONE OF THE FCLLGUING:" 

48 PRIKT" 1, SLfiLOH 

FOR PlittERS SKILLED MITH SHRRP (M) PfiECISE TURNS 
": PRINT" 2. GIANT SLfltOH 

H QflHE REQUIRING SP^D AND PRECISION TURNS" 
45 PRIKT" Z. DOHNHIU 

OWPETE H E»>ERIENCE SPEED VOU UOULD CVER DfIRE 

TO IN REAL SKIING- 
47 PRIKT" 4. INSTRUCTIONS 

IF VOU lEED TICH" 
56 INPUT" 
INDICftTC WWR OPTION HERE"ifil 

55 ON ERROR GOTO 6168 

69 OH fil GOTO 469. 449. 489. 8399 

78 GOTO 56 

166 K^ 

126 R=e4:B=466 

139 fli=4:T^ 

146 CLSiGOSUe 1288 

166 Q0SUB3i8e 

165 8*="" 

179 (W=1W(EV*:1FC»="" G0T0179 

186 e$eI)KEV$ 

266 FOR 1=1 TO 9 

216 tea I:T=B+TH6 

212 GOTO 680 

a5 IF K>156 00108686 

229(»=IMCEV* 

239 IF e$=". ■ GaT0269 

249 IF WO", " 0010279 
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259 IF AIM fti>^-l 

235 GOTO 278 

266 IF ftl<7 fll=ftt +1 

276 W fil GOTO 4668, 4566, 4466,4680. 4160.4286. 4366 

388 GOTO 266 

488 1^1 COUfSE SETTING 

416 REflO X<8),X<lB>.X(2e),X<21).X(29),X<32>,X<46).X(45>,X<46>,X< 

52). X<57>. X<59>, X(63). X<S9). X<7i). X<76). X(78). X<82). X(98). X(9e>. 

X(ie6), X<i6i), X<187). X(112). X(120>. X(126). X<127), X(134). X<t36). X 

<145).X(i5i>.X(152) 

428 DftTft -56. 43. -35. 23. -29. 23. -45. 45, -45. 45, -34, 24, -37, 47. -39, 39 

. -42. 41. -26, 34, -31. 43. -29, 33, -36. 48. -49. 51, -51. 54. -37, 51 

438 GOTO 186 

448 FOR MT016 

456R£H>X.X 

468 VEXll 

478 REflO X(8). X(18), X(21). X(22). X(29), X(32>.X(4e>, X(42), X(4?), XC 
53), X<54). X<S9). X<67). X<68), X<74), X(77). X<86), X<87). X(93), X(94), 
Xdfll). X<186), X(l»7). X(U3), X(122>, X(122), X(134). X(i36), X<151>, X 

(152) 

475 GOTO liae 

488 FOR WT031 

496 REH) X,X:NEXT I 

588 fiEflD X<il>,X<12),X(22>,X<23>,X<29),X(32),X<38),X<39),X(45).X 

(47), X(53), X(54). X<€e>. X<62), X(68>, X(69>, X(75>. X(76>, X<85), X(88) 

, X(93). X(99>. X(18e), X(ie6), X<il4), X(U5), X<123), X<124), X(134), X( 

137),X(i5t>,X(152) 

518 GOTO 186 

548 OflfTfl -16. 24, -31, 45. -28, 16, -43, 55, -46, 48, -45, 49, -39, 25, -36, 46 

, -27, 12, -23. 36. -IS, 16. -16, 16, -22, 38. -34, 47, -31, 17 

558 OflETft -23,37,-54,36.-63.54,-46,58,-28,43,-26.38.-16.32,-21,38 

,-15,29.-5,22,-9,7,-7,12.-15,33,-25,43.-58,33,-22,42 

688 IF feS<X(K+2)>=B/2 GOTO 6888 

685 ON m GOTO 215,636.646,676.686,698,215 

616 GOTO 215 

636 IF RB5(X<Kt2»>'A^-l GOTO 6888 

635 GOTO 215 

648 IF FIBS(X(K+3)>sfl/2-l GOTO 6688 

641 GOTO 215 

(76 IF RBS(X(i:-f3»=fl/2 GOTO 6888 
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€71 QOT0 21S 

688 IF flBS<X(K+3))=ft/2+l GOTO &m 

681 am)a5 

fiSe IF flB5<X<(C+2»=ft/2+t eOTO 6688 
691 GOTO 215 

leee for i=-3 to 2 
leie SET(ft+L6-i) 

1826 (CXT I 

1836 Sa(fl-l,5):SET(fl~2,4):SET(ft,2) 

1846 FOR 1=1 TO 3 

1856 SET<ft-3.1+I):SET(R-l, I):SETCft-2, 1) 

1866 NEXT I:RETURN 

1286 FOR 1=2 TO 9 

lae sET<a,i):ftxT i 

1228 FOR M TO 3 

1238 SET(ft-l, 1+2) :SET(ft*li 1+2) :SET<ft-l-L 1+2) :SET(fl+i+1, 1+2) :I€X 

T I 

i248R£TlJRN 

1486 FOR l=-3 TO 3 

1416 SET(f»-L6-I) 

1428 ICXT I 

1438 SET(fttl,5):SET(ft+2,4):SET<ft,2> 

1448 FOR 1*1 TO 3 

1458 SET<ftt3,l+I):SET(«*l.I):SET(ft+2,I) 

1468 leCF I:RETURN 

1668 FOR 1-8 T05 

1616 SET(fl+5-2*I,I+3).SET<fi+6-2*I>l+3):NEXT I 

1629 SET(fl,6):SETCft-l>6):SET(ft-2,5):SET(fl-3,5):SET<ft-5>6):SET<fl- 

5,5) 

1638 FOR 1=1 TO 6 

1648 Sn<ft-I-i,4):«XT I 

1656 RETURN 

1888 FOR I-8T05 

1819 SET <ft-5+2tLI+3>:SET(fl-6+2*M+3>;NEXT I 

1828 SET<ft 6) :SET<ft+l. 6) :SET(ft*2. 5) :SET<fl+3,5> iSET<fl+5,6) :SET(fi+ 

5,5) 

1836 FOR M TO 6 

1848SET(ft+I+L4);NEXT I 

1S56 RETURN 

2888 FOR 1=^2 TO 6 
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28ieSET(ft,I):)CXT ] 

^2e FOR i=-5 TO 6 

283eSET<ft+I.6):NEXT I 

2946 SET(ftH, 5) 

2856 SE7<fitl,2):SET<fhL2):SET<fi"l,l):SET(ft-L<4) 

2eee RETURN 

2206 FOR 1=2 TO 6 
2216 SET(M):HEXT I 
2226 FOR l=-5 TO 6 
2236 SET (ft-I,6>:(CXT I 

2246SET(ft-l,5) 

2256 SET(fl-l,3>:SET(ft+L2>:SET(fl+Li):SET<fl+L4) 

2266 {RETURN 

2160 FOR I=K TO K+i5 

3165 IF X(I»0 TWEN GOTO 31«6 

3116 IF X(D<6 GOTO 3196 

3i38NE)a I 

3140 RETURN 

3180 M=15366t64*<I-K)+X<l>:P»(E [H,91 

318S GOTO 3136 

3196 Di=15366+64*a-K)-X<I):?0KE E>1,S2 

3195 GOTO 3136 

4606 IF e<26 GOTO 4606 

4616 B^^13 

4026 IF B>166 GOTO 4656 

4036 tC=tt+l:(lS 

4031 f^lSm 12% 

4632 Q05UB 3166 

4638 GOTO 266 

4656 B=e-22:G0T0 4638 

4086 B=B/1. 8:&0T04636 

4168 IF 8<20 GOTO 4186 

4116 IF SH66 GOTO 4196 

4128 8=8-9 

4130 ft=ft+2: K=Ktl:as 
4146 GOSUe 1466 

4156 GOSUB 3166 
4168 GOTO 260 

4186 8=16 : G0T04138 
4198 6=8-20 : GOTO 4130 
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4288 IFe<85 G0TO4288 
4218 B=e-5 
4228 fH^:K=Kil:aS 
4238 G0SUe3188 

4248 GOSUBlSee 
4258 0010288 

4288 IFe<48 B=&t28:S0T0 4228 

4296 B=&fl2: GOTO 4226 

4388 B=l 4*6+48: IF B>408 MfiO 

4316 OS: IF B<tee QOTO 4388 

4328 QOSUB 3188 

4336 (NM.OOSUB 2286 

4346 GOTO 288 

4388 K<4;H:&«t26 

4398 GOTO 4326 

4488 IF 8C26 00104488 

4416 IF B>ie8 GOTO 4496 

4426 8=8-9 

4438 R=fr-2:K=K+1:CLS 

4446 G05U6 1868 

44Se GQSUB 3186 

4468 GOTO 268 

4488 B=16:00T0 4438 

4496 8^26: GOTO 4436 

4S66 IF 6C85 GOTO 4586 

4518 B=e-5 

4526 ft=fH:K=K+i:CLS 

4536 G05t»3iee 

4546 GDSUBl€8e 

4558 6010 266 

4588 IF BC48 8=8+26 :GOT04528 

4598 B=B+12: GOTO 4528 

4668 6=14*fi+4e:tF 8>480 6=468 

4618 CLS:IF 6086 QOTO 4686 

4626 OQSUe 31W 

4638 A=fi-6:G05UB 2868 

4646 GOTO 266 

4688 K^+1:B^28 

4696G0T04628 

6668 tt=27ee/(BHe):R)M)GH 
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hesetwooffersexpireJanjarY31,19S0*' 
NO SUBSTITUTIONS ON PACKAGE PRICES 



DISK EXPANSION PACKAGE**' 
HARDSIDE SPECIAL PRICE $889.95 

This package includes everything necessary to add disk 
capabilities to your TRS-80. To buy everything in this package 
at the local Radio Shack store would cost $1100.00. 

PACKAGE INCLUDES: 

' 16K RAM Expansion Interface 
PERCOM Data Separator, Installed 
PERCOM TFD-100, 40-track disk drive 
Dual disk drive cable ^ 

NEWDOS Disk operating system 
10 BASF diskettes 



DELUXE DISK EXPANSION PACKAGE**'^ 

The Deluxe way to get everything you need at a great savings. 

PACKAGE INCLUDES: 

• 32K RAM Expansion Interface 

• PERCOM Data Separator, Installed 

• Dual PERCOM TFD-100, 40-track drives 

• 4-drive cable 

■ NEWOOS-K Disk Operating System 

• 20 BASF diskettes 

HARDSIDE SPECIAL PRICE $1449.95 



WloW 
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•* EFFECT IV t: ubUtMscn i, lufw 
LIST OUR USED USED 


■fv - m\:i' 


^^^M r^ 


^^ M. ^^^^ M 


PRICE 


PRICE 


OFFER 


PRICE 


TRS-aO COMPUTERS: 










Level-I 4K 


$499 


$449 


$300 


$400 


Level-I 16K, w/keypad 


$729 


$659 






Level-tl 4K 


$613 


$559 


$350 


$500 


Level-11 16K 




$669 


$450 


$625 


Level-ll 16K. w/keypad 


$849 


$769 


$475 


$675 


EXPANSION INTERFACE: 










OK 


$299 


$269 


$165 


$230 


16K 


$448 


379/403 


$245 


$340 


. . . . 32K 


$597 


479/537 


$325 


$440 


DISK DRIVES: 










Percom, TFD-100, 40-track 




$399 






Percom, dual TFD-100 




$795 






Percom, TFD-200, 77-track 




$675 






2-drive cable 




9^ 






4-drlve cable 




S.")!) 






Radio Shack, -0 


$499 


$469 


$290 


$390 


Radio Shack, -1, 2, 3 


$399 


$459 


$270 


$370 


PRINTERS: 










Line Printer 111 


$1999 


$1849 






Centronics 779-2 


$1598 


$1095 


$655 


$850 


Line Printer II 


$999 




$545 


$750 


Centronics 730 


$999 


$899 


$545 


$750 


Centronics PI * 


$499 


$419 


$275 


$380 


Quick Printer II 


$219 


$197 


$125 


$165 


QP-ti Exp. Int. Cable 


l?o 


$19 






* Cable required 


m 


^ 






ACCESSORIES: 










Telephone Interface 


$199 


$179 


$100 


$150 


16K Memory Kit 




S 






16K Memory Kit for E.l. 








RS232-C Interface 


ws 


^9 


$55 


$re 


TRS-232 Interface 




$49 






Data Dubber 




148 






Tmportanti 


3|C Prices do not include shipping 


. 


3^ Prices subject to change 
^^ without notice 


' 3k COD orders require 
^L 25% cash deposlt^^ 



HardSide's new retail location has finally opened! 
Come See Us! 

6 South Street Miiford, New Hampshire 030S5 (603) 673-5144 

•Radio Shacit ■nd TRS4a are trattsmartta of Tandy Cutporstlan. 
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6826 0»=''SLRLO« POLE" 
6036 QOTO 62^ 
£166 H=27e6/(BH6):RflND0n 
6116 (W=5*RND(e>*(Wl 

6128 0*="TREE'' 
6260 IF fiX>3575 GOTO 6886 
6216 IF ftX<25e I*="H0HEVGOTO 6388 
6226 IF flX<6ee IJ^-mNOR INJURIES" :G0TO 6388 
6238 IF RX<8e8 I$="C0«CUSSIf)HVGOTO 6386 
6246 IF »K12e8 I$="BROt(EN LEQ":GOTO 6368 
6258 IF f«<2888 I*="«ULTIPLE FRFCTURES OF THE LEGS': 00106368 
6266 IF flX<25ee I*="FRfitmJRED SKULL AND BROKEN LEG CONDITICNiSER 
lOUS- :60T0638e 

62?6 II=-8R(]K£» HECK fWD MULTIPLE LEG FRACTURES 
aM>ITIOH:CRniCaL" 
e368CLS 
6318 G0SU63166 
€328 IF fl<l OR RHIS R=63 

€338 FOR I=8T06 

6340 SET(ft+?-L 1+6) 

6356 SET(fl*L I+8> 

€3€6 NEXTI 

63?8 SET<ft+5, 9) : SET<R+6, 18) 

6268 SET(R+li,9):SET(fHll,ie) 

6398 FOR I=4T014 

6466S£T(R+I,11>:^£XTI 

6416 FCIRI=8T012 

€428 SET(ft+L12):tCXTI 

€438PRIHTe 384,"V0UHIT fi "j 0$i " RT "; fO " (Wi " 
64^PRIKT'' 1HJURIES:M$ 

€476 PRIMT'VOU COtffLETES "i IKT<KA, 5); '•'/, OF TJ£ CffiSSE IH TJE TI 

iC:" 

€566 0010 9685 

6888 CLS 

6818 PRINT-HE EX\EH> OUR DEEPEST CONDOLENCES:" 

€826 PRINTS i3»>STRIN6«2*CW$(17€»iSTRIM»(5>CKR$(188)>iSTRING 

«(2,C»»<176» 

€838 PRINT TRe(19) STRIW»(il,CHR»U9l));" THE DECEftSED HFIS K 

ILLED" 
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6S4ePfttHTTffi(ie> STRINQX^CHttdSD);" %STRINQ>aCMt*<191> 

)i' ■iSTRIHM<2*ai»(191))i' IN ft COLLISIOI HITH ft- 

68!» PRIKI T»ai) STRl«B»(4,CH»(m»;" •iSTRI»»»<4,C«W(191)> 

6866 PRINT TflBCO) CHR»<191)jSTRINWaCHR»(179));C«W(191)i- 
miU SKIING RT 'iHf' MPH" 

em mm tfbcu) STRtN(i«aci«i<m)> 

£880 PRIMT-IC COMPLETED '; IMTCK^ 5); "X OF THE CORSE" 

£&» PRINT- IN TtE FIHRL lOCiaS GF »IS UFE IN T>C TIIC OF ■ 

£988 0010 3606 

8888 CLS:PRim Qft»<22>:PRIHT ■CONCRfmJLmiQNS VQU WOE IT T 

HROUQH OUR COURSE IN ft TItC OF' 

8865 Tl«FIX<T/1208e):T2=«T/12086)-Ti)*€e 

8818 PRINT TU :PRIMT"HIN ( "i iPRIKT T2i :PR1NT»SEC" 

8^ IF ftl=3 OOTO 8286 

8812 IF Tl<3 OOTO 9m 

8813 PRINT'RflfTING: REM. flHRTEUR" 

8815 IWVr-PRESS EWER FOR NEXT QfiME"iX 
8817 K=8: RESTORE 
8628 CLEfiRrGOTOie 
8838 IF 71<2 QOTO 8865 

8848 PRINT-RATING: CLfiSS C WCffi WTT 8flD. ' 

8641 QOTO 8613 

8858 PRIHT-RflTIHG: CUES ft RflCER 

EXCELLENT!- 
8851 GOTO 8615 

88SS iFTia GOTOseee 

8856 IF T2<36 GOTO 8086 

8858 PRINT-RftTIHG: CUBS 6 RftCER— 

VERVQOOO!" 

885? QOTO 8615 

8066 PRINT'RftTING: TCP PROFESSIOMRL ! 

PRE VOU SURE VOU DIDN'T MISS m GftTES --THRT TIIC IS TOO GOOD 

TOfiE TRUE?" 

8865 QOTO 8615 

8868 IF T2>15 GOTO 8656 

8898 PRINT'RftTING: CLftSS flft RftCER 

TOP RfiM!ING!!H" 
%95 QOTO ^5 
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8288 IF Tosoe (iOTO sees 

8218 IF -raieeS 001O 8898 
8228 IF T<12eee GOrrO 8868 

8238 IF Ta4eee corro 8868 

8248 IF Ta^eeS goto 8848 
8258 GOTO 3813 

8388 CLS:PRINT"5 ttl CHALLENGE IHSTRUCTIOM 
5" 

8218 PRINT" " 

8328 PRlNTiPRINT'-THIS IS fl GftE OF REFLEXES (WD SKILL- 
S' PRINT :FItm"TO START CHOOSE fl COURSE- SLflCK. (xSLfLOtt CR 

Doit«ia. * 

8348 PRINT*GC6ittERS RIGHfT FIMD DQUWia RS nC ERSIEST TO CQHPL 

ETL' 

8378 FRINT''flFTER H COURSE IS CHOSEN. THE CCMPUIER UIU DISPUIV T 

8388 PRIHT'FIRST FEU GRTES. VKH VOU PRESS fltmCEV. TIC GME BE 

GINS." 

8398 PRIHT"THE OBJECT IS TO (ffMEUVER TIC SKIER THROUGH EACH GRTE 

SO- 
8488 PRINT-THHT IC SKIS BELOW TtC '»iCIR$(92)j"' GffTE ft© ABOVE 

Tl€ '"iCHR»<91);"'. " 

8418 PRINT'GRTE. (MEN GflfTES «?£ HORIZCHTflL TtC SKIER NEED (H.V 
SKI ■ 
8428 PRINT'BETICEN THEH " :PRIKT 

8425 PRINT"— MORE IHSTRUCTIOHS — PRESS ENTER FOR NEXT PflCE" :« 
=INKEV$ 

8426 (!$='"' 

8427 fl»=IIKEVt:IF Gt='" QOfTO 8427 

8438 CLS;PRINT"THE SKIER NflV BE TURNED RIGHT OR LEFT BV NEflNS OF 
TK" 
8448 PRINT" '>' KEV AND THE '<' KEY RES^CTIVaV (HO SHIFT KEV OS 
ED).' 

8478 dilNT'SPEQ) IS IVE SR^TEST UICN TIC mm SPEH>S NOST OF T 
tC' 

8488 PRM'TIHE NITH HIS SKIS POINTING DOMtia. TICRE IS NO Rfi 
IVQH" 

8498 PRINT'LUCK IN THIS QAHE (EXCEPT FOR INJURIES); YOU DETERHIN 
E TIC" 
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8See FRlHT-fCSULTS TWOUGH VOUR SKILL. ' 

8518 PRIKTtPRIIfT'DO NOT SKI INTO ft SKI PCLE OR VOU MILL HRVE AN 

flCCIDBKT' 

8S2e PRIN7-(»I> MWeE INJURIES). THE SfttC GOES FOR SKIING OFF T 
l£ EDCE. ' 

8538 niIHT:f>RINT-HOTE T« PROGRHI HILL HOT CflLOJLFfTE ItETHEK DR 
NOT VOUCOH-" 

8»e PfiINT"PL£TaV HEKT THROUGH EfCH (»TE (THRT UOULO SLOW IT UP 
TOO* 

8Ke PRIHT'MUOi). VOJ MUST DETERHI^E THAT FOR YOURSELF. " 
8See PRINT:f«INT"PRES£ ENTER TO BEGIN'iGOTO 9823 
9805 Tl=FIX(T/'12eee):T2-«T/'1288e)-Tl)*69 
9818 PRINT Tlj iPRINT'KIN 4"; iPRINT T2; :PRIKT"SEC" 
9ei5»=IN(£y$ 

9826 PRINT "PRESS EWTER RK ftWThER G»€":Q*='" 
9623 (»=1H(EV»:1FQ*="" G0T09e23 
9825 K=8: RESTORE 
9638 CLEnR:GOT018 

€3888 'RECORD SLflLOH — 1 HIN * 3 425 SEC 0. HtttlN JR ll-6-?8 
$4888 'LftST NOOIFIED 12-31-78 
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Announcing a new service from SoftSide Publications 

Uiie Ustiiig Service 

Line listings ,01 per line plus $1 .00 postage and handling. 

You don't have a printer? Want listings of your programs? 

(Add ,50 or enclose stamped mailer for return of your 
cassette or disk, if you want it back.) 

Procedure: Send cassette or diskette and payment to 

LINE LISTING SERVICE 
P.O. Box &S, Milford, NH 03055 

Sorry, No level I, machine, or assembly language programs. 

Do not include orders, submissions, or questions in the 
same package. 

Make sure you include your mailing address. 
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There Is a fascinating little bug 
In TRS-DOS 2.3. Tile password 
protection gives up after one try. 
The first time you try to copy an 
uncopiable file It will give you ttie 



WffHMb 



error message "FILE ACCESS 
DENIED". Just try to copy it 
again - this time you should suc- 
ceed. 
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j^ IF... THEN ...ELSE 



The most frequent error In soft- 
ware submitted to SoftSide for 
publication is misuse of the 
THEN command. There are 
several considerations: 

(1) Yes, you can often replace 
THEN with a comma, but 
THEN only uses one byte 
of memory In Level 11 
storage, just like a com- 
ma, so . . . please don't. 

(2) Yes, you can often omit 
the command entirely, but 
.. . (a) ELSE will not work 
without THEN. (b) 
Arithmetic operations 
often fail without THEN 
So please include it. 



(3) THEN and ELSE imply an 
automatic GOTO. These 
are correct: 

IF A=1 THEN 100 ELSE 
200 

1FA=1THENGOSUB100 
ELSE GOSUB 200 
These lines are WRONG: 
IF A=1 THEN GOTO 100 
ELSE GOTO 200 
IF A=l GOSUB 100 ELSE 
GOSUB 200 

IF A-1 GOTO 100 (THEN 
Is correct and is just as 
easy to type.) 
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3 DELETE 



When you have a program that 
takes a lot of memory, needs in- 
structions, and uses string or ar- 
ray space, you can use the 
DELETE command to use some 
memory twice. You must cue the 
user to type RUN after the 
DELETE command, as it stops 
the execution of the program. 
Place your CLEAR and DIM 
statements in the second pro- 
gram, and your instructions in 
the first. Try this sample program 
to illustrate the method. 



10PRIMT "THIS WOULD BE 
THE INSTRUCTIONS 

20 PRINT 

30 PRINT 'TYPE RUN" 

40 DELETE 10-40 

50 CLEAR 5000:DIM A{1000} 

60PRINT"THIS IS THE SE- 
COND PROGRAM" 

70PRINT"IF YOU LIST IT, 
YOU WILL FIND LINES 10 
TO 40 MISSING" 

80 PRINT 

90 LIST 
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CLEAR PORTION OF SCREEN 



To clear only a portion of the 
screen, PRINT CHR$(31). This will 
clear from the point you print it to 
the end of the screen. Try this 
short program. 



10FOR A=1 TO 1000: 
PRINT® A, "A";:NEXT 

20PRtNT@256, CHR$(31h 
"THIS IS THE NEXT 

LINE." 



5 



EXTENDED TAB 



This subroutine will allow you 
to TAB past 63 on your line 
printer. 

30000 INPUT"TAB";T 



30010 LPRINT STRINGS 
(T-PEEK(16539),32}; 
Thanks to Will Hagenbuch of 
Nepenthe Programs. 
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Seasons Greetings 

from the staff and management ©f 

SoftSide Publications and 

The Software Exchange! 
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MAIL 
LIST II 

by Roger Robitaille, Sr, 



IDEAL for all sorts of small 
mailing applications, sucii as 
small businesses, ciubs, ciiurch- 
es; for advertising, newsletters, 
announcements, press releases - 
endless possibilities. We use it 
for a 15,000-name mailing list, 
yet it is perfect for lists as short 
as 100 names! You can store 1000 
records per data disk, use as 
many disks as you lilte . . . 

Each record includes: 

RECORD NUMBER 
RECORD CODE 
COMPANY NAME 
NAME 
ADDRESS 
ClTY/STATE/ZiP 
PHONE NO. 
GREETING 
PRODUCT CODES 
DATE 

Utilities include SORT, MERGE, 
MOVE, BREAK, EXAIWINE, and 
UPDATE. 

Prints labels 1, Z, or 3 across. 
Sequential file structure makes the 
most efficient use of disk space: all 
alphabetic items can be as long as 
necessary. 

EVEK ALLOWS DATA ENTRY ON A SEPARATE 
4K, LEVEL II CASSETTE SYSTEM, 

2 Disk Drive, 32K minimum $39.95 




The Softwaiv exchange 



I WW 



^MM^>**^J W ^^ ^ 



Bug Report 



"• " i i ' i — i ~,' ii ~ i _ I ■ 
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Ten Pin Bowling {line 30) January 

If B1 does not have 5 spaces, the program will not 
work properly, 81=" " 

Al) Star BaseBall (lines 3890, 3910, 3940) Ju!y 

The bunts in these lines need to count as times at 
bat. Add the following to each of these lines: 
:ABCIN)=AB(IN)+1 

Melt Down (lines 1920, 1930, 1960, 1970, 1980) September 
Change Ml in each line to W1, or the meters will 
not work. 

Westward 1847 (line 1 30) October 

Our printer did not print the extra line feeds (down 
arrow required) in line 130. There must be one line of 
space between each line of text. 

Energy Cost (line 830) November 

A$(1,0) should be A$(B,0) \ 

9 Games for Pre-School 
Children 

by George Blank 

Until they go to school, 
Chlldrer think that learning Is 
fun, not work. Is this the 
reason that ttiey learn so 
much faster In the early 
years? And learning ts great 
play. With these games 
ctilldren teach each other the 
alphabet, addition and sub- 
traction, recognition of letters and words, even art as they play with pal- 
terns on the screen. The games are written for ages four to six. The author 
has a degree In education, with graduate study in child development and 
counseling, plus a wide variety of teaching experience in Industry, the 
military, public and private schools, and churches. H you have children, and 
you also have a TBS-80, then you should have Nine Games for Pre-School 
Ctilldren. All nine games and (he menu are in the computer at one time, and 
the children will quickly learn to select the one they want. Level II, 16K $fl.95 
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Editor's fl#comm»ndAtlon: This is one of th« moat vatuable pfograms i owrv, I have ussc n lor tasK» mt 
varied as dsbuQglng, drsassemblino Levat M, and atortnfj my copy of Sargon II on tilsk lor f«»l loading. 
The only othfli program I hava that compares in value la NEWDOS. — Qwh^ Blank 




The SattiMtaiv Exchange 



HSM 2 (TAPE) «26.flS < 

nsM 2D (DISK) iM.m I 
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bv Small Systems S 
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•This is what you Garr^dQ' .^ 
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COMMAND 



• ASCII DUMPi':-; 'H- 

BINARY ARITWMgTse 
CHECKTAPE; 
HEX DUMP: 
EDIT: 

FIND 1 BYTE: 
GOTO: 

HUNTSBYTEa- 
t' INITIALIZE/INPUT: 
KKEYSOARaeCW 
% LOAD AND €0^ 
fet..W!OVE: 
b- OUTPUT: 
■ CHECKSOW; 
READ TAPE: 
. SYMBOLIC DUSflP: 
■TESTWENIORY: 
USER: 

•VHRtFYMEMCaY: 
W- WRITE TAPE: 
X-SXCHAKQE: 
2-ZEROMnMORV: 
• @ - BREAKPO?"!'''- 
,p. PUNCH: 
'.R-READ: 
■:,b-LOAD: 
'^$-SAVE: 
Y-TRSZaZ: 
-*. PRINT: 



■'B ■ 

c- 

0- 
E- 

F- 

G 

H' 



Q- 

R- 
S- 
T- 
U 

V- 



Display ASCI! eqa^vafewreff memory block 

Add/sy^r&d^ln Hex and decimal 

Check casseUe tapeis for proper checksum 

Display Hex equivalent of memory block 

Enter, examine, or modify memory in hex code 

Find and display single-by ta hex codes 

Go to and execute program at specified address 

Find and display two-byte addresses 

InitiallzeorlTiput data from port 

Type direoily to •screen or terminal 

Load a cassette ta)3^#tdMeGute program 

Mt^e any block of metrfe ^ ^ -^ 'o'^^cLf led location 

:;•'■; Output hex valDe- '•ed output port 

■ dornpttechecicso ' rriemory Ijloci* 

"Read cass> . , ier or standard) 

■, , DVsplaymemorylr^:^tLO&i;4i&rnrt6monics' 

^est memory b»ockar>d display errors 

A! tows user to write and execute new commands 

Compare any twofciocks of memory 

Write ar>-^ memory bfock to cassette tape 

Interchange any i^fofoiocKs of memoi7 

Write zero or an^.Heic- code intomemcy 

Inserts breahpbint ^|^ specif iad address 

A!f\tiit caanelte tap^inl^V^t-ii SYSTEM format 

R^ad SYSTEh*^ i:aR6,.dl%iip^«^sierst8n address ■ 

Loads specified disifestclcwssmto memory bioflk ■ 

Saves memory biookirttcxspfsifled disk sectors 

Set print parameters <batod,ete.) torTRS232 ; 

Directs output ioprtrtt^r'ss well as screen 



I 
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by Roger Robitaille, Sr. 

Inventory 'S' is an exciting advance in 
small business software for the TRS-80. Its 
in-memory system of data storage solves the 
problems of both sequential and random access 
files while providing extremely fast, random 
access to any record. Other advantages include 
the ability to use any combination of characters 
for stock number, an exceptionally flexible record 
format (field names are user-definable), and the 
ability to store data to tape or disk and upgrade at 
any time. Up to 150 itenris can be stored per 16K of 
available memory, with stock number, descrip- 
tion, cost, vendor, reorder, and profit data in each 
record. An important feature is the ability to use 
your present stock numbers (a sort function is 
included), unlike competing systems which force 
you to use a different "record number". 
User- definable screen and printer reports let you 
see just the data you need, when you need it. 

Inventorv 'S' is an extremely powerful 
business management tool which can be used 
effectively with a 16K, tape based system or a 
48K, disk and printer system — a claim nobody 
else can make! 

Tape version, 16K (min.), Level II — $24.95 
32K Disk version - $39.95 

fsafiie as tape, but on diskette witti additional Disk I/O] 



lbeSaih/vare£xdbange 
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STARDATE: 2200 

From Admiral Fitzpatrrck - 
Vou are to enter and explore the Omega VI 
region of the galaxy, gather information on other 
inhabitable planetary systems you may encounter and 
defend yourself against hostiles in case of attack. You are 
in command of the Starship ENTERPRISE and her ship's complement of 
371 officers and crew. Omega VI is composed of 192 quadrants 
containing star systems and planets (a few habitable). Information on 
Omega VI is sketchy, but astronomical hazards such as pulsars, Class O 
stars and black holes are known to be present inthe region 
It is also patrolled by Klingon battle 
cruisers, so look before you leap 



Available on Digital Cassette 
for Level II, 16K - $14.95 




The SoAwafie Exchange 
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-Specs; Star Trek 1 11.4- 



PJay Board: 8 by 8 by 3 quadrants 

Weapons Systems; Phasers and 

Photon Torpedoes 

Power Systems: Warp and Impulse 

Computer Systems: Science and 

Ship's computer 

Sensors: Long and Short Range 

Reports: Damage Control and 

Status 

Play Elements: 20 Klingon battle 

cruisers, 100 stars and planets, 

black holes, pulsars 



NEW! utility package from NEPENTHE PROGRAMS 




Programming utility for professional programming. 

File IVIanager 80 will organize tape and disk file routines, 
print a dictionary of items specified by you, edit items 
already specified and create record layouts using the Items 
you have described. It will even create the code for your in- 
put/output routines, including format, sub-record, get, and 
put routines, and store them as temporary files to merge in- 
to your programs. It will maintain a dictionary of the 
subroutines you create and the variables used. 

Minimum configuration is one disk and 32K of memory, 
but two disks are strongly recommended. Comes on disk 
with manual for $49.95. 



FASFCAMMON 

Backgammon is a two-person game. 
In FASTGAMMON the computer is one player 
(its men are O's) and you are the other {your men are X's). 

Whether you are a beginner or an experienced backgam- 
mon piayer, FASTGAMMON can help you improve your 
game. First of alt, you now have an opponent that is always 
ready and willing to play. There is no substitute for ex- 
perience — the more games you play the more you learn 
about backgammon. But there is another unique method by 
which FASTGAMMON can help you improve your game. 

By selecting "2" when the starting message is displayed, the 
sarrie sequence of rolls that occurred in the game just 
played (the last game for which you selected"!") will occur 
again. 

HOW GOOD IS FASTGAMMON? 

We make no claims that FASTGAMMON plays at an expert 
level. In fact, good players will notice obvious mistakes 
that the computer makes from time to time. The game of 
backgammon has many subtleties, and the algorithm pro- 
grammed into version 1 of FASTGAMMON is a fairly simple 
one. There is an advantage that the computer has, however, 
over human players — the computer never forgets what it 
"knows". Due to oversights, distractions, or haste, human 
players often forget what they know. This fact is the edge 
that makes FASTGAMMON competitive against good 
players. Level 111 6K *1 9.95 



a 



'^Quality Software 
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A COLUMN OF YOUR LETTERS 



Gentlemen: 

As to several different 
possibilities for formats for Soft- 
Side, my suggestion is to have 
one or two of each l<ind of format 
a year, that is, to have two IBK 
programs one month, and 6 or 7 
short ones another, etc, . . You 
could then advertise SoftSide as 
kind of a Magazine-Of-The- 
Month. Example: January-Double 
16K Issue, February-Educational 
Issue, March-Practical Applica- 
tions Issue. 

Another suggestion I have Is for 
an issue with several programs 
all grouped around a central 
theme, for example: a Graphics 
Issue, or a Peek/Poke Issue, etc., 
each one showing a different 
aspect of the TRS-80 in terms of 
programming. 

I think you should go back to 
splitting a program into sections 
and describing how each section 
works and what it does . . . this 
was one of the best features of 
SoftSide, and you appear to have 
dropped it around January, 1979, 
This is what made the magazine 
so appealing ... It actually ex- 
plained how it all worked! I have 
taught programming techniques 
to other programmers using sec- 
tions from early SoftSide issues, 
showing specific parts of certain 
programs and reading out how 
they work . , .This is the ONLY 
thing wrong with your magazine. . . 



that is to say, that you have 
dropped this important feature. 

Allan Hurst 
Chlcaso, IL 



Dear Sirs; 

Today I received the second ship- 
ment of TRS-80 programs on 
cassette. The shipment was 
again very prompt and the pro- 
grams loaded fine. Thanks to the 
good service I am enjoying my 
new programs shortly after I 
ordered them. Thanks for your 
good service! 



Ing. T.deMan 
Voorschoten, Holland 



Many of you have called or writ- 
ten to ask how to use RSM2D to 
save Sargon II. We are offering 
FREE - an instruction sheet. Just 
send a self addressed stamped 
envelope to SAVE SARGON II, 
P.O. Box 68, Mtlford, NH 03055 



*NOTE: Our WATS line Is now 
operational. For ordering on- 
ly, call TOLL FREE 9am ■ 9pm 
EST. 

1-800-258-1790 



m 
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♦ SCOTT ADAMS' NEWEST ADVENTURE! 

Marooned at the edge of the Galaxy you come across the ruins 
of ancient alien civilization, complete with fabulous treasures 
and alien technologies. Can you collect the treasures and 
escape or will you be forever marooned ... ^ 

$14.95 Level H,16K 

^^ TheSfMwyareExohange 

' G 5auH-)Stre'dJk}x68,MtltoKl':NH 03055 (m~673-5144 



Amazing 

MAIES 



by Robert Wallace — 

Remember trying to teach a rat to run through 
ti laze in psychology class? AMAZING MAZES 

g'wx s you a rodent's-eye viewpoint as you attempt 
to escape from a sinister maze in a race against 
the clock. Keep Moving . . . whenever you stop 

to catch your breath, the passageways 

change! Excellent use of high-speed graphics 

and real-time input make this a fast-paced 

challenge of skill and dexterity. 

For 16K, Level II 
Amazingly priced at only $7.95 





JheSaih&are Exchange 

6 SouthStreet, Box 68,Milford,NH 03Q55 603-673-5144 
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BY DAVID BOHLKE 

Manage a motion picture crew on location as you 
hunt for exotic animals in the game of SAFARI. Can 
you get your crew tiirough the hazards? Are you 
good enough and fast enough to capture some good 
pictures? Will you get there before the other crews? 
Find out with Safari. 

Level II 16K Tape $7.95 




TheSaih^ateExfJtange 

b SouthStreet, Box 68, Milford, NH 03055 603 -673-5144 
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GAMES 



W«rftrs t 4-game anthology. Lsval II, ISK $7.95 

BickgimiiHin by Scott Adams.Lewl II, 16K 
S7.96 

X-Wlrig II Ciy Chris Fraund. Level 11, ISK sg.gs 

Talpin by Art Canlll. Level ll, 16K S995 

Sargon Chess by Dan and Kathe Spracklen. 
Level II, ISK $19.95 

Sargon II by Oan and Kathe Spracklen. Level II, 
16K, (23.95, 

Che» CompankHi by Michael Kelleher. Level II, 

16K$7.95 

Then D He Tac Tm by Scott Adams. Level II, 

16K 17.95 

Cones ntralkm by Lanoe MIcklus. Level II, 16K 
S7 95 

Amann' Mues by Robert Watlaca. Level II, 16K 
$795 

Tim* Bomb by DJivid Bohlke. Level II, ISK $4.95 
Snalt* Eggs by Leo Chrlatopherson. Wltti sound 
- Level II, 16K $14.95 

Ufa Two by Leo Ctiristopherson. Wiih sound 
Level II, 1BKS14.95 

Andrsld Nim by Leo Chrlstoptierson. Witti 
aound . Level II. 16K $14.95 

Cubes by Leo Chrlstopherson Level II. 16K 19.95 
Bee Wary by Leo Chrletopher&on. with sound. 
Level II, ISK, $7.35. 
Maatarniind II by Lance MIcklus $7.95 
Mastarmtnd II - Source List -$^0.00 

RoboiyB res k away Game duo by Lsnoe MIcklus. 
Level II, 4K 17.96 

Tycoon by David Bohlke, Level II, IBK $7.95 



Slalom by Denslo Hamlin, level II. 16K $7.95 
9 Qames for Preschool Chlldian by George 
Blank, Level II, 15K$9.9a 

Tan Pin by Frank B, Flowletl. Jt Level II. 16K 

$7 95 

Allantfc Ballodn Cresafngby C^ean Powell. Level 

II. ISK $9 9« 

Space Battles by Level IV, Level II, laK Tape or 

32K Disk, Tape -$14.95, Disk - (19,95 

Star Trek III.3 by Lance MIcklus Level II, 16K 
$14.95 

Dog Stai Advanluie by Lance MIcklus. Level 11, 
16K $9.95 

Advanturas on Tape by Scott Adams. Level II, 
tfiK. Ctvoose one; Advent uraland, P[rate*s Cove. 
Mission Impossible, The Count, Voo<Joo Cattle. 
Strange Odyssey, and Fun House -$14.95 each. 
Adventures on Diali by Scoit Adams. 1) Mission 
Imposatbje, Pirate's Cove, AdventtJteland; or, 2] 
Voodoo Castle, The Count. Strange Odyssey. 
Choose three for $39.95, Now In machine 
language Tor faster and easier reepone. 
Safari by David Bohlke. Level tl, 16K $7.95 
Treasure Hunt by Lance MIcklus. Level U, 16K 
$7.95 

'Round the Hwn by George Blank. Level II, 18K 
$9.9S 

Porli Barrel by George Blank. Level II, ISK $9.95 
Kamikaze by Russell Starkey. Level t), 16K $7.95 
All Star Baseball by David Bohlke. Level II, 16K 
$7,95 

TRS'SO Open Theaira Maflnlfleertt sound! 
by Richard Taylor. $9 95 
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ChallmtB* WdK game with sound. By RtchanJ 
Taylor 19.95 

0I> Baron by Paul Knechtel $7.95 

Qilactle Emplt* by Douglas Cart£ton $7.99 

Cacino AnttKAogy Slot Machine, Stud and Draw 

Poker. $7.96. 

Allan InvMlon $9.35 

Bantcad» by Siriall Sysiams Software. Mactilna 

Uanouaga -$14.95 

Jownwy To The Canter 01 Tin Earth by Greg 

Haaselt. Level II, 16K Tape $7.95 

Pantomlnoas by James Gaion. Level It, 16K 

$7.95 

Mean ChecKeri Machine by Lance IrilcKtus. 

revel if, I6K; tape, $19.95; disk $24.96. 

Krlsgsplel by Flan Potkln. Level II, 16K, S7.96. 

Bridge Chall*r>gw Level II, leK, $14.95. 



BUSINESS 



InvHilory ll.2by M. Kelleher and R. W. Robitaille, 

Sr. 16K disk systems 159,95 

inirenitory Syitam 11.3 by W. Kelleher. Improved 

version, $79.95 

Inventory 'S" by Roger W. Robitaille, Sr. Level 11. 

16K Tape -S24.95; 32K Disk -$39,95 

Payroll by Stephen Hebbler. For disk systems. 

32K 159.95 

Accounts Receivable 11 by S, VIebbler. 32K disk 

systems $79.95 

Appoinlnient Log by K^lcnael Kelleher. Level 11, 

16K $9.96 

General Ledger I by M, Kelleher, requires 32K 

Disk, $79.95 

Malt List 11 by BUS-SO 32K disk systems $99.85 

Small Business Bookkeeping II by Roger W. 

Robitaille, Sr. Level 11, tBK. With (ournal -$36.95 

disk, $31.95 tape. Without journal - $29.95 disl(, 

$24.96 tape. 

SPECIAL PURPOSE 

Calculator by R, W. Robitaille, Sr. Level t or 11, 4K 
$2,95 

Hpying signboard by Circle Enterprises. Level I 
or II. 4K $9,95 

HltlographrScattargram tiy Qdiy S. Breschlnl, 
Level II, leK $9.85 

Simple Stnton by George Blank. Level II. Written 
In BASIC. $4.9S 

Math Drill by K. L. Biov^n, Level II, 16K $4.»5 
RPN Calculator by Russell Starksy. Level II, 16K 
$9.96 

Ham Racflo by Michael Kelleher. Level 11, 16K 
, $9.95 

Kaytmard by James Garon. Level II, ISK $9.95 



Ham Radio advanoMl varaton hit 32K dux 

El^elFonlos Aasletant by .tohn Adamson. Level 

II, 16K $9.95 

PrvIHght by Stephen Hebbler. Level 11, leK 

fZO.OO 

Baaie Statlsllc* by Steve Relsser. Level 11, 1GK 
$20.00 

EMH Haelert by Computer Graphics - speclly ti- 
tle desiiBd. Level II, t6K $7.95 aa. German, Rus- 
sian, ttallan, Spanish, or Music Theory. 



PERSONAL 



Typing Tutor by Roger W. Robitatlle, Sr, Level », 

16K $19.95 

Secrets of Bie Tarot by John T, phitlipp. Level II, 

16K $9.95 

Biorhythms by Frank B. Rovulett, Jr. Level II, 4K 

$4,95 

Personal Finance by Lance Mickius. Level II, 

16K $9.95 

Advanced Personal Finance by Lance Mick I us 

for 32 K disk systems $24,95 

Home Financial Management by Michael 

Kelleher. Level II, 16K $9.95 



UTILITIES 



NEWDOS by Appaiat $49,95 

NEWDOS+ by Apparat $99.95 

Madiine Language Mcnlior by Small Sysiems 

Software. Level 11, 16K $26,95 

Three Monitors tor Disk by Small Systems Siff- 

waie. Disk for 16 throuflh 4BK (all in one) $29.95 

KVP Extender by Lance Micklus, Tape - $29,95; 

Disk - $34.95 

KVP 232 by Lance Micklus - KVP adapted for the 

TRS-232. Tape - $29.95 

ST80 Smart Tsiminar Level 11, 16K $49.95 

STMD Smarter Tennlnai for disk systems. 

$79.95 

Micro Text Editor by Dan Coons, t-evel II, 4K or 

16K $9.95 

Tait-SO by Frank B. Rowlett, Jr. For 3ZK disk 

systems $59.95 

waa-zaa conversion LQVel 11, tSK $15.00 

Rwiumber by Lance Mickius Level II, available 

In le through 48K (specify vrhen ordering) $7.95 

Renumlwr sourca Hating $20.00 

Electric Pencil by Michael Shrayer. F>owerful 

machine language word processing system. 

Level 11, 16K tape - $100; Disk version - $150 

Level III BASIC by Microsolt. $49.95 

LwM I m Lwrel 11 by Apparat. Level II, 16K$16.00 j 



Fortran by Microsoft. 32K - 2 Otsks. N«w low 
price tlSO.OO 

RI*MarM9>rWby Nep«nli>«. $49.9S32K Di«l< 
Dlraotofy 16K Disk $9.95 
Automatad CNifc Olndory t14.9>5 32K bisk. Re- 
quires NawCX)$. 

Spool Print ASCII flies $19.95 (Will not work with 
MewDO$.) 

STAO Trace and Debug Monitor for tape and 
disk systems 16, 32, and 46K on one tape. S24.95 



BOOKS 



Sargon Handbocrti by Dan & Kathe Sprackten. 

Si 4 .95 plus $1.00 shipping and handling. 

The BASIC HandbQok by Or David A. Lien. 

S14.95 plus t1 

ZSO InelrucUon Handbook by Scelbl Publios- 

tions $4.9S plus tl.OO 

Tita Linte Bo«k Of BASIC Style by John 

Nevlson. $6.95 ptua t1 

TRS-BO Ataembly Language Piogrammlng by 

WIIHsm Barden, Jr. $3.95 plus $1 shipping 

Introdu^lon Id TR&SO Qraphlca by Don Inman. 

$7.95 plus $1 

Learning Level II by Oavid A. Lien. $l9.9$plus$t 

Z-Sd Software Oounnet Qukfe and Cookbodk 

from Scelbi. $14.95 * $1. 

HARDWARE 
ACCESSORIES 



Caasettw boxes of ten each. C-10 - $5.50 plus 

$1 .00 shipping 

0-20 - $7.50 plus $1.00 Shipping 



DIfkattaa Dyaan, (premium quailtyi box of 5 
$24.95 fAus $1.00 shipping; nattiwaltv known 
brand, box of to - $34.95 plus $1. DIekMte 
Storage Bex $5.00 

T«S »a by Small Systems Hardware - $49.95 
Peroom Disli DriveeSlnglecrduaJ, forTRS-SO's. 
Singte drive 4399X0; Dual drive ■ $795.00; Cable 
required - $29.9$ 

Rdpi>y AraKHir^" PiolecUira envelope for ehlp- 
ping Itoppv dlske, 6-pack ■ $4,9i$ plus *1XW sMp- 
phtg and handling 
Z<m Chip Poslar $3.99 plus $1.00 handling. 

SoftSldo VInyt Binders, $4.95 plus $t.00 shipp- 
ing. 
Oat* Chibber $49.95 plus $2.00 shipiting 



For mora detailed descriptiona of our toft- 
wars and accessoriea, eertd tor the TSE 
Catalog • If t FREE! Write or call today for 
your copy: 

The Software Exchange 

t South Street 

Mllford, NH 03056 

•034T3-S144 



IMPORTANT 

■ Hv sales tex- 

m AH C.O.D.'i or special delivery orders are 
a minimum ol $6 for special handling. 

■ When oiderlng Peicoin, please add $5 

each packaging and handling fee. 



WANTED 

Used TRS-SO equipment! We buy and sell 
used equipment. Call or write for details. 




To Order 

TOLL FREE 

1-800-258-1790 



6ScuthStreet,Box68,Mitl<^,NH03(S5 603-673-5144 
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PO Box 68 
Milford,NH 03055 

"your BASIC software iriagazliw" 

Rush me the next 12 issues of SoffSide. 



nUSA bulk. $18 1 yr. a$32-2 yrs. DCANADA/MEXiCO $25 1 yr. 
nUSA first class $25 1 yr, DOVERSEAS airmail $30 1 yr. 

DA PO /OVERSEAS surface $25 1 yr. TelophwiB your chsrgB card or<Jeri Call 
^^^_ ojr Subscription ofdce Monday through 

Credit Card ^^ Friday 9:30to5i30 (Eastern time) at 

^^^ e03-e7M144 



L 



Exp. Date. 
Signature- 

Name 

Address— 

City _ 



Interbank # (M/Conly). 



-State- 



Zip- 



Please remit in US funds ONLY 



Ready to get serious? SUBSCRIBE TO PROG/80 the magazine 
dedicated to serious programmers... beginners to professionals 



SUBSCRIPTION RATES - 6 Issues per year 
USA Canada 

Bulk mall -115.00 Mexico 

First Class Wlaii- $21.00 APO/FPO ' 

Overseas airmail . $27.00 Overseas surfaos m^il 1 



] 



i?-: m.. 



|**^P i%iCh«k/^on^' Order enciosad ^. Master Charge ii'VfSAi 



S 1.3 MATURE.. 

'accoumt#_ 

■liXP;-B. 
NAME 



..i 



^ 



&^ 






i^'l 



...l^*TSH;#s_ 



i»fc^ 



r ¥mm 



ADDRESS. 



CITV. 



STATE. 



ZIP 



Tetephorie orders accepted for Master Charge or VISA accounts. Call Monday through 
Friday, 9:30 to 5:30 EST at e(»-673-5144 

PO BOX 68, MILFORD, NH 03055 
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AM Alexander did was con- 
quer the world. Your goal is the 
Universe! But, there's a lot 
more to building an empire 
than firing a cannon. In this 
magnificent simulation, you let 
your armies fight the battles, 
while you decide where and 
when to fight, plan the use of 
your resources, build warships 
and transports, set tax levels, 
dispatch intelligence mis- 
sions, and draft armies. The 
best grand strategy game for 
theTRS-80! 

16Kcassette^14.95 




L^ia 
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